再问mshflexgrid控件的问题

sgshark 2003-07-28 04:29:21
我在前用
mshflexgrid1.rows=10
mshflexgrid1.removeitem(4)
那么.rows就等于9
显示也会少了一行

那么我要在该行插入回一行
with mshflexgrid1
.rows=.rows+1
for i=9 to 5 step=-1
就是第i行等于第i-1行
next i
第4行等于插入的记录
end with
插入操作时成功的,mahflexgrid1的最后一行也是有值的,但是就显示不出来
为什么?
请大家帮忙

...全文
34 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
gpo2002 2003-07-31
  • 打赏
  • 举报
回复
Adodc1.Refresh
mshflexgrid1.datasource=adodc1
MSHFlexGrid1.Refresh

rows会根据邦定的记录数自动设置的
LuBingLin 2003-07-31
  • 打赏
  • 举报
回复
不会吧,能不能发一下你的原码看一看呢?
不是很明白。
sgshark 2003-07-28
  • 打赏
  • 举报
回复
还是不行啊,急啊,那位高人救救我
LuBingLin 2003-07-28
  • 打赏
  • 举报
回复
'请添加一个MSHFlexGrid、两个Command及一个TextBox
Option Explicit

Private Sub Command1_Click()
MSHFlexGrid1.RemoveItem Val(Text1.Text)
End Sub

Private Sub Command2_Click()
MSHFlexGrid1.AddItem "", Val(Text1.Text)
MSHFlexGrid1.TextMatrix(Val(Text1.Text), 0) = Text1.Text
MSHFlexGrid1.TextMatrix(Val(Text1.Text), 1) = Text1.Text
End Sub

Private Sub Form_Load()
Dim I As Integer
For I = 0 To 9
MSHFlexGrid1.TextMatrix(I, 0) = I
MSHFlexGrid1.TextMatrix(I, 1) = I
Next
End Sub
sgshark 2003-07-28
  • 打赏
  • 举报
回复
还有就是我变成.rows=.rows+2就会显示一条空行出来
sgshark 2003-07-28
  • 打赏
  • 举报
回复
对了,我的mshflexgrid1.datasource=adodc1的
adodc1是连接数据库的一个表的
应该没有关系的吧
sgshark 2003-07-28
  • 打赏
  • 举报
回复
我在.rows=.rows+1前加了,还是不行啊
怎么办,各位大哥救命啊
wsungox 2003-07-28
  • 打赏
  • 举报
回复
有没有用mshflexgrid.redraw=true 试试看!

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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