专家坐堂-复选框勾选之后点击按钮删除未选择行代码怎么写？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  复选框勾选之后点击按钮删除未选择行代码怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69029)

--  作者：shao1235235
--  发布时间：2015/5/29 10:27:00
--  复选框勾选之后点击按钮删除未选择行代码怎么写？
帮助文件中按钮是删除选择行，
For Each r As Row In Tables("员工").GetCheckedRows
r.Delete
Next

删除未选择行的代码怎么改？

--  作者：大红袍
--  发布时间：2015/5/29 10:33:00
--
For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Dim r As Row = Tables("表A").Rows(i)
    If r.Checked = False Then
        r.Delete
    End If
Next

--  作者：shao1235235
--  发布时间：2015/5/29 10:34:00
--
多谢