从数据库中读取值到MSHFlexGrid控件中出现的问题?急,在线等就这么点分了全散了...

[prominent]

我从数据库中读取了5个产品记录到MSHFlexGrid控件中.
但只有MSHFlexGrid第一行会显示最后一条记录..
其余的4行都为空..晕了...
望高手指点一下呀小弟在此谢过了....
源程序:
Do While Not rs.EOF
With order_grid
For i = 1 To 5
.TextMatrix(.Row, i) = rs(i + 7)
Next
.Rows = .Rows + 1
rs.MoveNext
If rs.EOF Then
.Rows = .Rows - 1
Exit Do
End If
End With
Loop

[prominent]

谢了楼上的但我的为什么就不行呢?
晕了...

[vansoft]

啊累？

set mshflexgrid1.datasource=r

世界就清靜了。

[xiaobai2022]

你把.TextMatrix(.Row, i) = rs(i + 7)中的.ROW改为.Rows应该就可以了

[prominent]

还是不行呀....
说是下标越限....
晕了高手指点呀...

[feiyun0112]

j=0
Do While Not rs.EOF
j=j+1
With order_grid
For i = 1 To 5
.TextMatrix(j, i) = rs(i + 7)
Next
.Rows = .Rows + 1
rs.MoveNext
If rs.EOF Then
.Rows = .Rows - 1
Exit Do
End If
End With
Loop

[xiaobai2022]

With order_grid
.cols=6
.rows=2
Do While Not rs.EOF
.Rows = .Rows + 1
For i = 1 To 5
.TextMatrix(.Rows-2, i) = rs(i + 7)
Next

rs.MoveNext
Loop
.Rows = .Rows - 1
End With
我给你修改了一下你试试

[dayanmao]

你的语句.TextMatrix(.Row, i) = rs(i + 7) 这一条有问题，当前的行一直都没有变，所以才会始终是最后一条，楼上面已经有正解。