| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助 窗口保存问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102378) |
| -- 作者：jackyfashion -- 发布时间：2017/6/18 22:15:00 -- 求助 窗口保存问题 老师: 您好! 我打开窗口在Col 输入文字,退出窗口,提示是否保存, 单击否,但是还是保存 If DataTables("wawwxmum").HasChanges Then If MessageBox.Show("内容已更改,是否保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then DataTables("wawwxmum").Save End If End If e.Form.Close 请老师指教!!! 谢谢!!!
|
| -- 作者：有点色 -- 发布时间：2017/6/18 23:02:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102367&skin=0
|
| -- 作者：jackyfashion -- 发布时间：2017/6/19 0:16:00 -- 老师: 您好! 主要是退出窗口时,不保存当前行,sql 是没有保存, 但是打开窗口时,还是上次输入的数据,并不是原先的数据 没有输入任何数据,退出窗口时,照样有上次关闭窗口的提示 用什么代码可以取消保存当前行输入的数据? 什么代码可以加载sql当前表最后一行的数据? If DataTables("表A").HasChanges Then Dim Result As DialogResult Result = MessageBox.Show("内容已更改,是否保存?","提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If Result = DialogResult.No Then e.Form.Close ElseIf result = DialogResult.Cancel Then e.cancel = True ElseIf result = DialogResult.Yes Then DataTables("表A").save e.Form.Close End If End If 请老师指点!!! 谢谢!!!
[此贴子已经被作者于2017/6/19 0:46:36编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/6/19 9:14:00 -- If DataTables("表A").HasChanges Then Dim Result As DialogResult Result = MessageBox.Show("内容已更改,是否保存?","提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If Result = DialogResult.No Then DataTables("表A").RejectChanges e.Form.Close ElseIf result = DialogResult.Cancel Then e.cancel = True ElseIf result = DialogResult.Yes Then DataTables("表A").save e.Form.Close End If End If |
| -- 作者：jackyfashion -- 发布时间：2017/6/19 19:47:00 -- 谢谢老师!!! |