大家帮忙看下代码？

[maituo]

'On Error Resume Next
Adodc1.ConnectionString = PublicStr
'ADO控件的RecordSource执行SQL语句
Adodc1.RecordSource = "SELECT tradecode, fullname, type, standard, produce, unit, qty, stockcheck FROM tbS_stock"
Adodc1.Refresh
Call MSF1 '调用过程，初始化MSFlexGrid控件

If Adodc1.Recordset.RecordCount > 0 Then



MS1.Rows = Adodc1.Recordset.RecordCount
For i = 1 To Adodc1.Recordset.RecordCount
MS1.TextMatrix(i, 1) = Adodc1.Recordset.Fields(0)
MS1.TextMatrix(i, 2) = Adodc1.Recordset.Fields(1)
MS1.TextMatrix(i, 3) = Adodc1.Recordset.Fields(2)
MS1.TextMatrix(i, 4) = Adodc1.Recordset.Fields(3)
MS1.TextMatrix(i, 5) = Adodc1.Recordset.Fields(4)
MS1.TextMatrix(i, 6) = Adodc1.Recordset.Fields(5)
MS1.TextMatrix(i, 7) = Adodc1.Recordset.Fields(6)
On Error Resume Next '可以赋值空
MS1.TextMatrix(i, 8) = Adodc1.Recordset.Fields(7)
Adodc1.Recordset.MoveNext '将记录移动到下一条
Next i
'定义MS1表的列序号
For i = 1 To MS1.Rows
MS1.TextMatrix(i, 0) = i
Next i
Else
MsgBox "仓库没有商品"
End If


数据库明明是2条记录 为什么只显示一条 Adodc1.Recordset.RecordCount 的结果 也是2！

[易十五]

在For循环前加这一句
Adodc1.Recordset.MoveFirst

[maituo]

不好使还是出不来 On Error Resume Next '可以赋值空 这句话去掉了 提示下标越界 什么意思啊？？？

[clear_zero]

1。你确定你的MS1.TextMatrix有相应的列？ 1到8？
2。 你断点debug一下就知道了

[vbman2003]

MS1.Rows = Adodc1.Recordset.RecordCount +1

[vbman2003]

可能会出现null,如下处理一下：
MS1.TextMatrix(i, 8) = Adodc1.Recordset.Fields(7) & vbnullstring

[vbman2003]

'定义MS1表的列序号
For i = 1 To MS1.Rows-1
MS1.TextMatrix(i, 0) = i
Next i

[of123]

For i = 0 To Adodc1.Recordset.RecordCount - 1