VSFlexGrid控件属性方法一览表
VSFlexGrid控件属性方法一览表(带()为方法)说明：O 表示 VSFlexGrid 对象的名，A 表示当前属性名，|表示可选属性/方法名称功能示例语法
AddItem()增加一行O.A String[，RowIndex]
Aggregate返回集合合计(总数，平均，等等)O.A=(A，Row1，Col1，Row2，Col2)
Align对象在窗体上的显示位置O.A=0|1|2|3|4
AllowBigSelection设定列头是否整行或整列选择O.A=True|False
AllowSelection是否可多单元选择O.A=True|False
AllowUserFreezing运行时用鼠标冻结行或列O.A=0|1|2|3
AllowUserResizing调整(行/列)大小方式O.A=0|1|2|3|4
Appearance边框平面/凹陷/凸起O.A=0|1|2
Archive()存储或清除一个二进制文件内容O.AArcFileName，FileName，0|1|2|3
ArchiveInfo返回一个二进制文件信息O.AArcFileName，0|1|2|3|4，LineIndex
AutoReSize是否自动调整大小O.A=True|False
AutoSearch设置自动搜索O.A=0|1|2
AutoSearchDelay设置AutoSearch多少秒刷新O.A=2
AutoSize()自动调整列到指定宽度O.ACol1，Col2，True|False，1000
AutoSizeMode自动调整适合行列内容O.A=0|1
AutoSizeMouse是否双击列首自动调整适合行列O.A=True|False
BackColor所有非固定行列的背景色O.A=Color
BackColorAlternate所有非固定行列的交替行颜色O.A=Color
BackColorBkg表格背景坐底色O.A=Color
BackColorFixed固定的行/列背景色O.A=Color
BackColorFrozen冻结部分的行列背景色O.A=Color
BackColorSel单元被选中的背景色O.A=Color
BindToArray()绑定数组O.AArrayStr，RowDim，ColDim，PageDim，CurrentPage
Bookmark返回ADORecordset行书签(只读)O.A(Row)
BorderStyle边框粗细样式O.A=0|1
BottomRow返回可见范围的最大行号(只读)O.A
BuildComboList()将数据库中的内容写入下拉框O.A(rs，FieldList，KeyField，BackColor)
CausesValidation???目标事件确认O.A=False|True
Cell选择部分的相应准则值O.A(准则，Row1，Col1，Row2，Col2)=准则值
准则的定义；flexcpAlignment 对齐方式 flexcpBackColor 背景色 flexcpChecked 选择框flexcpCustomFormat 格式设置 flexcpData 日期 flexcpFloodColor 颜色flexcpFloodPercent 背景色 flexcpFont 字体 flexcpFontBold 粗体flexcpFontItalic 斜体 flexcpFontName 字体名 flexcpFontSize 字体大小flexcpFontStrikethru 删除线 flexcpFontUnderline 下划线 flexcpFontWidth 字符宽flexcpForeColor 字符色 flexcpHeight 高 flexcpLeft 左flexcpPicture 添加图 flexcpPictureAlignment 图对齐 flexcpRefresh 刷新flexcpSort 分类 flexcpText 字符 flexcpTextDisplay 显示字符flexcpTextStyle 文本样式 flexcpTop 返回顶端高，同 RowPos 和 valueMatrix 属性flexcpvalue 返回字符值 flexcpVariantvalue 返回字符值 flexcpWidth 返回单元宽
CellAlignment设定单元里数据的排列方式O.A=0至9
CellBackColor指定单元范围的背景颜色O.A=Color
CellBorder()选择单元范围的边界颜色O.AColor，左，上，右，下，垂直，水平
CellButtonPicture选择单元范围的按钮图片O.A=LoadPicture("D:\Icon.ico")
CellChecked选择单元范围的复选框O.A=0|1|2
CellFloodColor选择单元范围的流程颜色O.A=Color
CellFloodPercent选择单元范围的流程百分比O.A=1至100
CellFontBold指定单元范围设为黑体字O.A=False|True
CellFontItalic指定单元范围设为斜体字O.A=False|True
CellFontName对象所使用的字体名称O.A=FontName
CellFontSize对象文字像数大小(默认9pt)O.A=9
CellFontStrikethru选择范围是否有删除线O.A=False|True
CellFontUnderline选择范围是否有下画线O.A=False|True
CellFontWidth设定单元或指定范围字体的宽度O.A=2
CellForeColor设定单元或指定范围字体的颜色O.A=Color
CellHeight返回/显示到当前单元高度(只读)O.A
CellLeft返回当前单元的左端位置(只读)O.A
CellPicture显示在单元或指定范围中的图片O.A=LoadPicture("D:\Icon.ico")
CellPictureAlingment单元或指定范围图片的显示位置O.A=0至10
CellTextStyle设定单元文本的显示形式O.A=0|1|2|3|4
CellTop返回当前单元的顶端位置(只读)O.A
CellWidth返回当前单元的宽度(只读)O.A
Clear()清除表格内容O.A(，)
Clear 1 表示只清除数据行；Clear 表示清除网格中所有内容（包括表头和数据行）Clear 2 Clear
ClientHeight返回客户可见范围高度O.A
ClientWidth返回客户可见范围宽度O.A
Clip设置选择范围的内容O.A=Text
ClipSeparators???
Col设置激活单元的列号O.A=2
ColAlignment列对齐排列方式O.A(Col)=0至9
ColComboList向下拉框写入管道字符O.A(Col)="|ListStr1|ListStr2|..."
ColData设置用户定义的长整形数据O.A(Col)=UserLong
ColDataType列数据类型O.A(Col)=0至14到20(&H14)， 30(&H1E)， 31(&H1F)
说明：flexDTEmpty 0 flexDTNull 1 flexDTShort 2 flexDTLong 3flexDTSingle 4 flexDTDouble 5 flexDTCurrency 6 flexDTDate 7flexDTString 8 flexDTDispatch 9 flexDTError 10 flexDTBoolean 11flexDTVariant 12 flexDTUnknown 13 flexDTDecimal 14 flexDTLong8 20flexDTStringC 30 flexDTStringW 31
ColEditMask列编辑套用格式字符串O.A(Col)=指定的格式如：######
ColFormat格式化显示列O.A(Col)="Currency"|"#.###%"...
说明：其中Format()是String对象处理函数，Format()共有8中固定格式，测试数据12345.12345
1>General Number 格式：与原数据保持一致。Format("GerneralNumber") 12345.12345
2>Fixed 格式：小数点右边按四舍五入保留两位小数。Format("Fixed") 12345.12
3>Standard 格式：使用千分隔符，小数点右边按四舍五入保留两位数字。 12，345.12
4>Percent 格式：乘100后加“%”符号，小数点右边四舍五入保留两位数字。1234512.34%
5>Scientific 格式：按科学计算实用记数法。 1.24E+04
6>Yes/No 格式：数字为0时显示No，否则为Yes。 Yes
7>True/False 格式：数字为0时显示False，否则为True。 True
8>On/Off 格式：数字为0时显示Off，否则为On。 On
除了固定格式之外，Format还可以自己定义输出格式：
“0”：占位符，必须出现的数字位，如果该位没有数字以0补充。
“#”：占位符，可以省略的数字位。
“%”：百分号占位符。将表达式乘100后，加上%。
”.”：小数点占位符。
“,“：千分隔符。
测试数据：1234567.1234567
#和0 "##,#00.00" :1,234,567.12
加字符 "合计：##0E+##" :合计：123E+4
加符号 "$00.0000" :$1234567.1235
ColHidden是否隐藏指定列O.A(Col)=True|False
ColImageList设置图像列表句柄到列
ColIndent缩进指定列O.ACol=100
ColIndex返回列索引(只读)O.ACol
ColIsVisible返回列是否可见(只读)O.ACol
ColKey设置列钥匙O.A(Col)=KeyStr
ColPos返回列距左边宽度(只读)O.ACol
ColPosition移动列的位置O.A(Col)=ReCol
Cols返回/设置总列数O.A=2
ColSel返回/设置最后选择的列O.A=3
ColSort设置列种类O.A(Col)=0至10
(flexSortCustom、flexSortGenericAscending、flexSortGenericDescending、flexSortNone、flexSortNumericAscending、flexSortNumericDescending、flexSortStringAscending、flexSortStringDescending、flexSortStringNoCaseAscending、flexSortStringNoCaseDescending、flexSortUseColSort)
ColWidth返回/设置指定列宽O.A(Col)=100
ColWidthMax最大列宽O.A(Col)=5000
ColWidthMin最小列宽O.A(Col)=100
ComboCount取得Combo下拉按钮总数(只读)O.A
ComboDataCombo下拉按钮数据(只读)O.A
ComboIndexCombo下拉按钮索引O.A=1
ComboItemCombo下拉按钮项目(只读)O.A
ComboList向下拉框写入管道字符内容O.A="a|b|c"
ComboSearchCombo下拉按钮搜寻方式O.A=0|1|2|3
Container返回/设置对象的容器O.A.Caption="Forms"
DataBindings返回数据装入数(只读)O.A
DataMember返回/设置数据描述成员O.A=DataStr
DataMode设置数据链接状态O.A=0|1|2|3|4
DataRefresh()刷新数据源O.A
DataSource设置数据源SetO.A=DataDim
Drag()拖放O.A
DragIcon拖放图标O.A=LoadPicture("D:\Icon.ico")
DragMode拖放方式O.A=0|1
DragRow()拖放行(本示例在MouseDown过程)O.AO.RowSel
Editable设置表格是否可编辑修改O.A=0|1|2
EditCell()当移动到当前单元时自动选择O.A
EditMask当编辑时只能使用指定值O.A=Strvalue
EditMaxLength所有单元限制字节大小O.A=2
EditSelLength编辑时选择长度O.A=5
EditSelStart移动到单元时的光标位置O.A=0(或者Len(vsg.text))
EditSelText编辑选择处放文本O.A="Str"
EditText编辑文本O.A="Str"
EditWindow返回编辑窗口(只读)O.A
Ellipsis超宽字符加省略号O.A=0|1|2
Enabled对象是否激活可用O.A=False|True
ExplorerBar单击列头的选择、拖动或排序样式O.A=0至15
ExtendLastCol是否扩充最后的列到适合宽度O.A=False|True
FillStyle是否改变当前范围的内容或格式O.A=0|1
FindRow查找符和条件返回的行(只读)O.AFindStr，，，[敏感]，[精度])
FinishEditing()完成编辑的O.A=False|True
FixedAlignment固定列的对齐方式O.A(Col)=0至9
FixedCols固定几列O.A=1
FixedRows固定几行O.A=1
FlexDataSource流动数据源O.A=rsDate
FloodColor设置流程颜色O.A=Color
FocusRect单元的选择虚框样式类型O.A=0|1|2|3|4|5
Font设定字体O.A=FontName
FontBold设定字体粗体O.A=False|True
FontItalic设定字体斜体O.A=False|True
FontName设定字体名称O.A=FontName
FontSize设定字体大小O.A=10
FontStrikethru设定字体删除线O.A=False|True
FontUnderline设定字体下划线O.A=False|True
FontWidth设定字体的宽度(非间距)O.A=2
ForeColor设定字体前景颜色O.A=Color
ForeColorFixed设定固定单元的文本颜色O.A=Color
ForeColorFrozen设定字体冻结部分的前景颜色O.A=Color
ForeColorSel设定选择单元的文本颜色O.A=Color
FormatString设计管道符格式化行/列字符串O.A=Format(1，"#0.00")
FrozenCols需要冻结的列数O.A=2
FrozenRows需要冻结的行数O.A=2
GetMergedRange()获得合并单元格范围O.A Rowjsq, Coljsq, Hbrow1, Hbcol1, Hbrow2, Hbcol2
GetNode()???获得节点
GetNodeRow()???获得节点行
GetSelection()???获得选择O.A Row1，Col1，Row2，Col2
GridColor单元行列的网格线颜色O.A=Color
GridColorFixed设定固定网格线的颜色O.A=Color
GridLines可编辑区的网格线类型O.A=0至14
GridLinesFixed固定行列网格效果类型O.A=0至14
GridLineWidth编辑区的网格线线粗细O.A=1
Height设置对象高度O.A=1000
HelpContextID对象缺省上下文帮助IDO.A=HelpID
HighLight是否突出加亮显示选中单元O.A=0[无]|1[默认]|2[仅焦点时有]
hWnd获取对象句柄O.A
Index对象索引号(运行时只读)O.A
IsCollapsed???
IsSelected是否已选择O.A
IsSubtotal当前行是否是小记行O.A=（TRUE/FALSE）
Left对象距左边位置O.A=100
LeftCol指定显示在最左边的列O.A=1
LoadArray()载入数组
LoadGrid()载入网格O.AFileName，0至6[，True(含固定行列)|False]
LoadGridURL()载入网格URL
MergeCells相同内容的单元格合并类型O.A=0|1|2|3|4|5|6
0 flexMergeNever1 flexMergeFree2 flexMergeRestrictRows3 flexMergeRestrictColumns4 flexMergeRestrictAll5 flexMergeFixedOnly 6 flexMergeSpill
MergeCol是否上下列合并O.A(Col)=True
MergeCompare返回/设置合并比较类型O.A=0|1|2
MergeRow是否左右行合并O.A(Row)=True
MouseCol返回鼠标指向的当前列号O.A
MouseIcon设定鼠标指向的当前图形O.A=LoadPicture("C:\.ico")
MousePointer设置对象的鼠标指针样式O.A=0到15|99
MouseRow返回鼠标指向的当前行号O.A
Move()移动对象O.ALeft，，，
MultiTotals???Multi总数
Name对象名称(运行时只读)O.A
NodeClosedPicture节点封闭的图标O.A=LoadPicture("C:\.ico")
NodeOpenPicture节点打开的图标O.A=LoadPicture("C:\.ico")
Object返回/设置该对象变量SetDimObjName=O.A
OLEDrag()OLE拖拽数据O.A
OLEDragModeOLE拖拽方式O.A=0|1
OLEDropModeOLE拖拽落下方式O.A=0|1|2
Outline()设置外面的线
OutlineBar返回/设置显示目录树的线条O.A=0至6
OutlineCol设置外面的线列
OwnerDraw返回或设置执行DrawCell事件O.A=0至6
Parent返回该对象所在的对象(只读)O.A.Caption="Forms"
Picture返回控件的图片(只读)O.A.属性|方法=相应值
PicturesOver返回控件图片结束O.A=False|True
PictureType用Picture属性生成的图片类型O.A=0|1
PrintGrid()打印网格数据O.A[“主题”，True|False，1|2，左右空，上下空]
Redraw设定是否刷新控件O.A=0|1|2
Refresh()刷新表格O.A
RemoveItem()删除指定行O.AVSG1.RowSel
RightCol返回右边最大的可见列范围O.A
RightToLeft是否将固定行放到右边O.A=True
Row设置激活单元的行号O.A=2
RowData设置用户定义的长整形数据O.A(Row)=UserLong
RowHeight返回/设置指定行高O.A(Row)=100
RowHeightMax行高的最大值O.A(Row)=500
RowHeightMin行高的最小值O.A(Row)=230
RowHidden是否隐藏指定行O.A(2)=True|False
RowIsVisible返回行是否在可见范围中(只读)O.A(Row)
RowOutlineLevel返回/设置水平行小记O.A(Row)=0|1
RowPos返回行距上边高度(只读)O.ARow
RowPosition移动行的位置O.A(Row)=NewRow
Rows返回/设置总行数O.A=2
RowSel返回/设置最后选择的行O.A=2
RowStatus设置行状态O.A=0|1|2|3
SaveGrid()保存网格内容到二进制文件O.AFileName，0至6[，True(含固定行列)|False]
ScrollBars设定卷动轴的方式O.A=0|1|2|3
ScrollTips卷轴提示O.A=False|True
ScrollTipText卷轴提示文本O.A=“Text”
ScrollTrack行是否随拖动条卷动显示O.A=False|True
Select()选择行列范围O.ARow，Col[，RowSel][，ColSel]
SelectedRow已选择行(只读)O.A(Row)
SelectedRows返回所选总行数(只读)O.A
SelectionMode设置单元焦点选中方式O.A=0|1|2|3
SetFocus()设置到对象焦点O.A
SheetBorder表格边框颜色O.A=Color
ShowCell()立刻显示到指定单元O.ARow，Col
ShowComboButton是否显示当选择时拉下按钮O.A=0|1|2
ShowWhatsThis()显示“这是什么”O.A
Sort按照选择的基准重新排序顺序方式O.A=0到10
0：flexSortCustom（按客户定义的方式排序） 1：flexSortGenericAscending（通用方式增增减排列） 2：flexSortGenericDescending通用方式递减排列） 3：flexSortNone（不排序） 4：flexSortNumericAscending（以递增方式排列数字） 5：flexSortNumericDescending（以递减方式排列数字） 6：flexSortStringAscending（以递增方式排列字符） 7：flexSortStringDescending（以递减方式排列字符） 8：flexSortStringNoCaseAscending（以递增方式排列非字符） 9：flexSortStringNoCaseDescending（以递减方式排列非字符） 10：flexSortUseColSort（用户自定义）
Subtotal()小计O.A属性名[，GroupOn, totalon, Format,BackColor, ForeColor, FontBold, Caption, matchfrom, totalonly（其它共9个可省略参数）]
flexSTSum （2，合计功能） flexSTAverage （5，平均值） flexSTClear （1，清除汇总行数据）flexSTCount （4，汇总行数，计数） flexSTMax （6，最大） flexSTMin （7，最小）flexSTNone （0，无Outlineonly, no aggregate values） flexSTPercent（3，百分比）flexSTStd（8，Standard deviation） flexSTVar （9，Variance） flexSTStdPop （10，Standard Deviation Population） flexSTVarPop （11，Variance Population）
SubtotalPosition是否小计上面或下面的数值O.A=0(flexSTAbove)|1(flexSTBelow)
TabBehaviorTab键跳转顺序禁止O.A=0|1
TabIndex对象的Tab选择顺序O.A=2
TabStop是否允许Tab自动选择O.A=True|False
Tag存储数据时所需的附加数据O.A=Str
Text返回/写入当前单元的文字O.A=Str
TextMatrix返回/写入指定单元的文字O.A(Row，Col)=Str
TextStyle单元格文字效果O.A=0|1|2|3|4
TextStyleFixed固定行列文本的3D效果O.A=0|1|2|3|4
ToolTipText鼠标指向表格的说明消息O.A="TextString"
Top对象上边距O.A=100
TopRow指定显示在最上面的行O.A=5
TreeColor目录树颜色O.A=Color
value返回当前单元数值部分(只读)O.A
valueMatrix返回指定单元数值部分(只读)O.ARow，Col
Version返回控件的版本号(只读)O.A
VirtualData虚拟数据O.A=True|False
Visible是否显示对象O.A=True|False
WallPaper表格壁纸背景图O.A=LoadPicture(Image)|O.A.属性|方法=相应值
WallPaperAlignment壁纸背景图墙报对齐方式O.A(Col)=0至10
WhatsThisHelpID设置与对象相关联的上下文号O.A=HelpIDString
Width设置对象宽度O.A=5000
WordWrap设定单元中的文本是否换行O.A=True|False
ZOrder()设置对象Z顺序O.A 0|1
事件单元得到选择焦点。这五个事件执行顺序为：BeforeSelChange，RowColChange，AfterRowColChange，SelChange，AfterSelChange鼠标单击单元。这五个事件执行顺序为：BeforeMouseDown，BeforeEdit，MouseDown，MouseUp，Click
AfterCollapse() AfterDataRefresh() 当绑定到数据库时发生AfterEdit() 单元按下任何键并离开当前单元后AfterMoveColumn() AfterMoveRow() 调整行高时AfterRowColChange() 单元得到焦点时，不包括启动窗体时AfterScroll() 滚动条滑块改变位置后(当ScrollTrack为True时，该事件同时发生，否则停止拖拉时才发生)AfterSelChange() 单元得到焦点时，不包括启动窗体时AfterSort() AfterUserFreeze() 调整冻结的行列后AfterUserResize() 调整行列大小时BeforeCollapse() BeforeDataRefresh() BeforeEdit() 从表格显示时的任何键盘或鼠标欲改数据动作前BeforeMouseDown() 当在表格任何地方按下鼠标，相应在 MouseDown之前BeforeMoveColumn() BeforeMoveRow() BeforePageBreak() BeforeRowColChange() 单击或离开单元时BeforeScroll() 滚动条滑块改变位置后，AfterScroll事件前，基本同AfterScroll()事件BeforeScrollTip() BeforeSelChange() 单元得到焦点时，不包括启动窗体时BeforeSort() BeforeUserResize() 当鼠标指向欲调整行列宽度或高度时CellButtonClick() CellChanged() 当单元内容改变并离开时，无改变时不发生ChangeEdit() 按下一个有效字符键时Click() 用鼠标单击单元后ComboCloseUp() 当单元中的下拉框按钮拉出并复位时ComboDropDown() 当单元中的下拉框按钮拉下时Compare() DblClick() 用鼠标双击单元后DragDrop() DragOver() DrawCell() 当OwnerDraw属性值大于0时执行表格刷新动作EnterCell() 离开或选择当前单元时Error() 表格发生错误时FilterData() GetHeaderRow() GotFocus() 当表格得到焦点时KeyDown() 按下任意键后字符显示前KeyDownEdit() 按下一个有效键后欲改前KeyPress() 按下一个任意键后KeyPressEdit() 按下一个有效字符键时，字符输入前KeyUp() 任意键盘操作时KeyUpEdit() 按下一个任意键数据被改变后LeaveCell() 离开单元焦点前LostFocus() 离开表格焦点后MouseDown() 鼠标选中或移动时MouseMove() 鼠标晃动时MouseUp() 鼠标按下弹起后OLECompleteDrag() OLEDragDrop() OLEDragOver() OLEGiveFeedback() OLESetCustomDataObject() OLESetData() OLEStartDrag() RowColChange() 单元得到焦点时，包括窗体启动时SelChange() 得到焦点时SetupEditStyle() 当欲改变单元内容前SetupEditWindow() 单元被键盘欲改变前StartEdit() 单元被键盘欲改变前StartPage() Validate() 离开表格焦点在LostFocus事件前ValidateEdit() 单元内容被改变或离开当前单元时这四个事件执行顺序为：ValidateEdit，AfterEdit，StartEdit，SetupEditWindow
我帮你移到对应的平台。 Alice 发表于 2016-11-21 10:25
我帮你移到对应的平台。
:)我想问一下，vsflexgrid 控件可以在delphi 7 下用吗 Alice 发表于 2016-11-21 10:25
我帮你移到对应的平台。
:)我想问一下，vsflexgrid 控件可以在delphi 7 下用吗 lk2000mail 发表于 2016-11-21 21:33
我想问一下，vsflexgrid 控件可以在delphi 7 下用吗
可以用，但是我们通常不推荐。
我们没办法提供相关的支持。 Alice 发表于 2016-11-22 09:39
可以用，但是我们通常不推荐。
我们没办法提供相关的支持。
:) 我想问一下，VSFLEXGRID 控件能快速加载数据吗？有什么方法！我想加载大批的数组数据，现在用FOR循环真是太慢了！不知道有没有其它好办法！实现所见即所得，不要等待太长时间！！ Alice 发表于 2016-11-22 09:39
可以用，但是我们通常不推荐。
我们没办法提供相关的支持。
:) 我想问一下，VSFLEXGRID 控件能快速加载数据吗？有什么方法！我想加载大批的数组数据，现在用FOR循环真是太慢了！不知道有没有其它好办法！实现所见即所得，不要等待太长时间！！ 本帖最后由 Alice 于 2016-11-23 09:33 编辑
lk2000mail 发表于 2016-11-22 22:13
我想问一下，VSFLEXGRID 控件能快速加载数据吗？有什么方法！我想加载大批的数组数据，现在用FOR循环 ...
谢谢反馈。
除了给单元格设置值，还有通过DataSource做数据绑定。
链接：http://helpcentral.componentone.com/nethelp/vsflexgrid8/datasourceproperty.html
还有一种设置值的方式是通过FillColumn 方法，通过列填充。
代码参考：
' define some sample data
Const slProduct = "Product|Flutes|Saxophones|Drums|" & _
"Guitars|Trombones|Keyboards|Microphones"
Const slAssociate = "Associate|John|Paul|Mike|Paula|Sylvia|Donna"
Const slRegion = "Region|North|South|East|West"
Const slSales = "Sales|14323|2532|45342|43432|75877|4232|4543"
' populate the control with the data
FillColumn fg, 0, slProduct
FillColumn fg, 1, slAssociate
FillColumn fg, 2, slRegion
FillColumn fg, 3, slSales
fg.ColFormat(3) = "#,###"
Alice 发表于 2016-11-23 09:30
谢谢反馈。
除了给单元格设置值，还有通过DataSource做数据绑定。
链接：http://helpcentral.component ...
抱歉才看到您的回复，前面那个数绑定，我在用！！另外我自己生成的数据，我想加入到表格中，但我试了在VB 6。0下没有FillColumn方法呀！！ lk2000mail 发表于 2016-11-24 21:17
抱歉才看到您的回复，前面那个数绑定，我在用！！另外我自己生成的数据，我想加入到表格中，但我试了在VB ...
不好意思，这是个Helper方法。
完整代码：
Sub FillColumn(fg As VSFlexGrid, ByVal c As Long, ByVal s As String)
Dim r As Long, i As Long, cnt As Long
ReDim lst(0) As String
' build list of data values
cnt = 0
i = InStr(s, "|")
While i > 0
lst(cnt) = Left(s, i - 1)
s = Mid(s, i + 1)
cnt = cnt + 1
ReDim Preserve lst(cnt) As String
i = InStr(s, "|")
Wend
lst(cnt) = s
' set values by randomly picking from the list
fg.Cell(flexcpText, 0, c) = lst(0)
For r = fg.FixedRows To fa.Rows - 1
i = (Rnd() * 1000) Mod cnt + 1
fg.Cell(flexcpText, r, c) = lst(i)
Next
' do an autosize on the column we just filled
fg.AutoSize c, , , 300
End Sub
如果你试了这些方法都不行，那没有其他的更好的方法了。
页:
[1]