以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160136)

--  作者:透明人生
--  发布时间:2021/1/22 9:08:00
--  删除行
请教老师,下面代码的问题要怎么修改
Dim t As Table = CurrentTable
For i As Integer = t.TopRow To t.BottomRow
  If t.Rows(i).Locked = False Then
 \' t.Rows(i).Delete()      \'  多选删除,删除不尽,还会留行
   Syscmd.Row.Delete()   \'删除单行,确认一下,正常删除;多选行删除,确认一下,可以删除选定行,但再还会继续弹出是和否,只有再点否才能退出,多选几行要点几下
Else
   Messagebox.show("不能删除已锁定的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)  
End If
Next
[此贴子已经被作者于2021/1/22 9:10:07编辑过]

--  作者:有点蓝
--  发布时间:2021/1/22 9:14:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=153563&skin=0