做批量删除时，怎么判断，一个都没有选择？ Post By：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
加好友 
发短信
Post By：2018/1/8 21:20:00 [显示全部帖子]
