从数据库中读取值到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
...全文
155 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
谢了楼上的但我的为什么就不行呢?
晕了...

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧