专家坐堂-全选删除怎么一次只删一半Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  全选删除怎么一次只删一半  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147604)

--  作者：饭浇盖
--  发布时间：2020/3/20 11:13:00
--  全选删除怎么一次只删一半

For Each r As Row In Tables("明细码").Rows
    If r.Checked Then
        r.Delete
    End If
Next

此主题相关图片如下：2020-03-20_111116.png

这个删除的代码每次按一次只删除一半

--  作者：有点蓝
--  发布时间：2020/3/20 11:35:00
--

参考：http://www.foxtable.com/webhelp/topics/1636.htm

或者倒序删除
For i As Integer = Tables("明细码").Rows.Count-1 to 0 step -1
If Tables("明细码").Rows(i).Checked Then
Tables("明细码").Rows(i).delete()
endif
Next

--  作者：饭浇盖
--  发布时间：2020/3/20 12:08:00
--  好的感谢
好的感谢