MSHFlexGrid或MSFlexGrid?
求助。 要做一个表 表头信息为: 日期(××.××.××)、 时间(××.××)、序号(二进制)(××.××)、备注(××)表头这些需要的数据都可以手动输入。 还有就是最后要统计多少行数据。
大神给个思路或者提示如何入手。菜菜鸟一枚。
程序代码:'数据库连接略
Dim SSP As Integer
RS.Open "Select * From 测试表", cn, 3, 2
SSP = RS.RecordCount '得到数据表的记录总数
MSFlexGrid1.Clear
With MSFlexGrid1
.Cols = 4 '设置总列数
.Rows = 1 + SSP '设置总行数
.TextMatrix(0, 0) = "日期" '列名称
.TextMatrix(0, 1) = "时间" '列名称
.TextMatrix(0, 2) = "序号" '列名称
.TextMatrix(0, 3) = "备注" '列名称
.ColWidth(0) = 1800 '列宽度
.ColWidth(1) = 1200 '列宽度
.ColWidth(2) = 2000 '列宽度
.ColWidth(3) = 1000 '列宽度
For I = 1 To SSP '下面是加载行数据,即数据表的记录
.TextMatrix(I, 0) = RS!日期
.TextMatrix(I, 1) = RS!时间
.TextMatrix(I, 2) = RS!序号
.TextMatrix(I, 3) = RS!备注
RS.MoveNext
Next I
End With
RS.Close
Set RS = Nothing