根据记录集 字段个数 来 填充表格 做成一个通用函数 在线等！
我写了个函数 传入个记录集 根据字段个数给表格添加数据(FlexCell.ocx)
这个表格不能帮定 数据 显示数据如下：
ARecordset.MoveFirst
For i = 1 To ARecordset.RecordCount
grid1.AddItem ARecordset.Fields(0).Value & vbTab _
& ARecordset.Fields(1).Value & vbTab _
& ARecordset.Fields(2).Value & vbTab _
& ARecordset.Fields(3).Value & vbTab _
& ARecordset.Fields(4).Value & vbTab _
& ARecordset.Fields(5).Value & vbTab _
& ARecordset.Fields(6).Value & vbTab _
& ARecordset.Fields(7).Value & vbTab _
, False
ARecordset.MoveNext
Next i
这里就是传进来得 集合是 8个字段得 对应表格 就是0-7
我想把这个函数做成通用得 就是根据传进来得有几个字段 表格就显示
也就是说如果传进来是 select field1 from table 那么 表格显示填充就grid1.AddItem ARecordset.Fields(0).Value & vbTab _
如果select field1,filed2 from table 那么就是这样写了
grid1.AddItem ARecordset.Fields(0).Value & vbTab _
& ARecordset.Fields(1).Value & vbTab _
依次类推 ：如何把他写活呢 ？
[解决办法]
ARecordset.MoveFirst
For i = 1 To ARecordset.RecordCount
s= " "
for j=0 to ARecordset.Fields.countt-1
s=s & ARecordset.Fields(j).Value & vbtab
next
left(s,len(s)-1)
grid1.AddItem s, False
ARecordset.MoveNext
Next i
