数组初始化了吗?长度是多少?
初始化了,长度是100,数据库里面有60组数据.
为什么总是一个相同的数据了,与数据库中的数据不同,请各位给我解决,谢谢高手。Private Sub Command1_Click()Dim a(1000000) rs1.Open "select * from 声发射 ", Cnn, adOpenKeyset
For i = 1 To rs1.RecordCount a(i) = rs1.fields(4).Value List1.AddItem a(i) Next i Print rs1.RecordCount End Sub程序结果中只显示同样的数,请各位帮忙解决。
如果你喜欢while not rs.eof的话你就会很清楚没有rs.movenext,死循环
赋值前验证下是否为空值啊