不过可以换下面的几个方法试试:
1种
直接msflexgrid.clear
这样可能把列头也给清除了,那么只能写个加载列表的过程,在clear后重新加载.
msflexgrid.clear
call
a
'a我为加载列表名
的过程.
2种
msflexgrid.datasource=sql
'sql为一个空表的连接
建立一个空表
然后查询绑定,这样就可以了.
msflexgrid.refresh'刷新记录
实事空表记录
显示为空(与你的填充函数绑定的)
添加MSHFlexgrid控件的办法如下:要程序的代码是:Dim i, j, k As Integer
1、设置行列数
With MSHFlexGrid1
.Rows = 5
.Cols = 5
End With
2、添加表头
MSHFlexGrid1.Row = 0
For i = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.Text = "列" &i
Next
3、添加记录
k = 1
For i = 1 To MSHFlexGrid1.Rows - 1
For j = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
MSHFlexGrid1.Text = k
k = k + 1
Next
Next
说明:添加部件"Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)"才能使用MSHFlexGrid.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)