这个控件时vb自带的,在控件栏上点鼠标右键,选【部件...】,再找到【microsoft
hierarchical
flexgrid
control】并选中,控件栏上就有了!用法介绍这样获得:往窗体中拖一个刚才新增加的mshflexgrid控件,在这个表格控件按f1,如果你装了msdn的话,就能看到详细介绍了。注意mshflexgrid不等于msflexgrid
逐一单元格添加数据
代码如下:
Dim
i,
j,
k
As
Integer
'设置行列数
With
MSHFlexGrid1
.Rows
=
5
.Cols
=
5
End
With
'添加表头
MSHFlexGrid1.Row
=
0
For
i
=
1
To
MSHFlexGrid1.Cols
-
1
MSHFlexGrid1.Col
=
i
MSHFlexGrid1.Text
=
"列"
&
i
Next
'添加记录
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