7,763
社区成员
发帖
与我相关
我的任务
分享在线等！！关于MSHFlexGrid控件删除行问题。。。
With MSHFlexGrid_db
For i = 2 To .Rows - 1
.RemoveItem (.Row)
Next i
'End If
End With
For i = 2 To .Rows - 1
.RemoveItem (.Row)
Next i
'End If
End With
...全文
请发表友善的回复…
发表回复
studyharding 2003-10-30
- 打赏
- 举报
搞定了
wolfhero 2003-10-30
- 打赏
- 举报
.Refresh
jacky2004 2003-10-30
- 打赏
- 举报
那是因为你删除了某一行后，以下几行的索引会自动向上移一位，所以会造成下标越界
假如有10行，索引为0-9，如果你删除了第5行，则原来索引为6的则变为5，7则变6....到第9就变成了8，而你的循坏中i的值仍为9，所以会错。建议删除一行后及时修改i值。
假如有10行，索引为0-9，如果你删除了第5行，则原来索引为6的则变为5，7则变6....到第9就变成了8，而你的循坏中i的值仍为9，所以会错。建议删除一行后及时修改i值。
studyharding 2003-10-30
- 打赏
- 举报
还是同样报错，不知为何。
myValue都可以正确打印，应该是下标0的原故。
我把.Cols设置了也不可以。
应该还是.RemoveItem的问题吧。
不知道了，高手指点！
myValue都可以正确打印，应该是下标0的原故。
我把.Cols设置了也不可以。
应该还是.RemoveItem的问题吧。
不知道了，高手指点！
射天狼 2003-10-30
- 打赏
- 举报
For i = .Rows - 1 to 2 step -1
.RemoveItem (.Row)
Next i
'End If
End With
'=======
你把数据都删除了,再删除当然出错了,反过来删除就没问题了~~~~
.RemoveItem (.Row)
Next i
'End If
End With
'=======
你把数据都删除了,再删除当然出错了,反过来删除就没问题了~~~~
studyharding 2003-10-30
- 打赏
- 举报
Sorry，TAB习惯了。
With MSHFlexGrid_db
For i = 2 To .Rows - 1
.RemoveItem (.Row)
Next i
End With
With MSHFlexGrid_db
.TextMatrix(iCurrentGridLine_up, 0) = myValue ' <--
' ... ...
.Row = .Row + 1
Ene with
Grid中没有数据时，运行没问题。
一旦有数据，下方标注的赋值语句就报，下标越界错误。
请问为何。
With MSHFlexGrid_db
For i = 2 To .Rows - 1
.RemoveItem (.Row)
Next i
End With
With MSHFlexGrid_db
.TextMatrix(iCurrentGridLine_up, 0) = myValue ' <--
' ... ...
.Row = .Row + 1
Ene with
Grid中没有数据时，运行没问题。
一旦有数据，下方标注的赋值语句就报，下标越界错误。
请问为何。
