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