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

prominent 2006-02-21 10:45:01
我从数据库中读取了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
...全文
109 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dayanmao 2006-02-22
你的语句.TextMatrix(.Row, i) = rs(i + 7) 这一条有问题,当前的行一直都没有变,所以才会始终是最后一条,楼上面已经有正解。
回复
xiaobai2022 2006-02-22
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
我给你修改了一下你试试
回复
feiyun0112 2006-02-21
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
回复
prominent 2006-02-21
还是不行呀....
说是下标越限....
晕了高手指点呀...
回复
xiaobai2022 2006-02-21
你把.TextMatrix(.Row, i) = rs(i + 7)中的.ROW改为.Rows应该就可以了
回复
vansoft 2006-02-21
啊累?

set mshflexgrid1.datasource=r

世界就清靜了。
回复
prominent 2006-02-21
谢了楼上的但我的为什么就不行呢?
晕了...
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-02-21 10:45
社区公告
暂无公告