以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93141)
--  作者：longyanlin
--  发布时间：2016/11/21 17:16:00
--  删除
我有一个库存表，里面有一逻辑列“保存”，在窗口里面操作，有一个按钮，点击“保存”=true ，该表保存，现在我要退出该窗口，能否自动删除 未保存及“保存”= false的所有列，谢谢
--  作者：有点蓝
--  发布时间：2016/11/21 17:35:00
--  
窗口BeforeClose事件

DataTables("库存").DeleteFor("保存=false")
--  作者：longyanlin
--  发布时间：2016/11/21 17:42:00
--  

谢谢，如果是再出现一个对话框，假如该表里面其中有一列“保存”=false时，就出现该对话提醒对话框呢，全部“保存”=true时，不出现该对话框，谢谢
--  作者：有点蓝
--  发布时间：2016/11/21 17:53:00
--  
if DataTables("库存").find("保存=false") isnot nothing then
  if MessageBox.Show("还有没保存，是不是删除？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes

DataTables("库存").DeleteFor("保存=false")
end if
end if
--  作者：longyanlin
--  发布时间：2016/11/21 18:06:00
--  

谢谢老师
--  作者：longyanlin
--  发布时间：2016/11/21 18:20:00
--  

举一多问，呵呵！

4楼代码能否改成删除行并且不能退出窗口呢。

[此贴子已经被作者于2016/11/21 18:21:23编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 20:15:00
--  
If DataTables("库存").find("保存=false") IsNot Nothing Then
    If MessageBox.Show("还有没保存,是不是删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
        DataTables("库存").DeleteFor("保存=false")
        e.Cancel = True
    End If
End If