专家坐堂-做批量删除时，怎么判断，一个都没有选择？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  做批量删除时，怎么判断，一个都没有选择？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113082)

--  作者：xxfoxtable
--  发布时间：2018/1/8 21:20:00
--  做批量删除时，怎么判断，一个都没有选择？
    Dim Result As DialogResult
    Result = MessageBox.Show("确实要删除当前记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        For Each r As Row In Tables("销售").GetCheckedRows
            r.Delete
        Next
        DataTables("销售").Save
        msgbox("删除成功!!")
    Else
        Return
    End If

--  作者：有点蓝
--  发布时间：2018/1/8 21:23:00
--

Dim Result As DialogResult
Result = MessageBox.Show("确实要删除当前记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim rs As List(of Row) = Tables("销售").GetCheckedRows
If rs.Count > 0 Then
For Each r As Row In rs
r.Delete
Next
DataTables("销售").Save
msgbox("删除成功!!")
Else
msgbox("没有选择需要删除的数据!!")
End If
End If