删除多行时有点问题?请帮忙
上次klbt(快乐白兔)和lmby(鹿门布衣)帮忙解决删除多行的问题。
我对选中多行的代码略作修改
long ll_ClickedRow
long il_lastclickedrow
long i
string ls_KeyDownType
ll_clickedrow = row
if ll_clickedrow = 0 then
return
elseIf Keydown (KeyShift!) then
for i=il_lastclickedrow to ll_clickedrow
this.selectrow(i,true)
i=i + 1
next
elseif this.IsSelected (ll_clickedrow) then
il_lastclickedrow = ll_clickedrow
elseif Keydown(KeyControl!) then
il_lastclickedrow = ll_clickedrow
this.SelectRow (ll_clickedrow, true)
else
il_lastclickedrow = ll_clickedrow
this.SelectRow (0, false)
this.SelectRow (ll_clickedrow, true)
end if
对删除多行的代码没有修改
Long i
for i = 1 to dw_info.RowCount()
if dw_info.IsSelected(i) then
dw_info.DeleteRow(i)
end if
i=i -1
next
分别出现以下问题
选中多行代码在执行时有一个问题,就是选中一行后,按下shift键,
再点击另一行时,发现,选中的不是二者之间的所有行,而是所有的行
删除时,有一个奇怪的问题,
把表里的 所有数据一起删除时,执行正常,而当删除某几行时
发现,虽然执行无误,但执行完后,Pb就死了,我试了几次,都是这样。
请帮忙看一下,问题出在哪里?
谢谢!