- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙修改下代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25889)
-- 发布时间：2012/11/19 15:24:00
-- 帮忙修改下代码
If DataTables("会员信息表").HasChanges Then
DataTables("会员信息表").save
End If
Forms("会员信息表").close
我想把这个修改成 如果改变的话 弹出一个对话框 提示 是否保存 或者取消
如果 选是
就保存关闭
如果选否
就不保存
如果选取消
就不关闭然后再回到数据表
对照帮助修改的一直提示是错误
不是 提示“END IF" 就是提示 ”datatableS"
请高手帮忙写全代码
学习学习
-- 发布时间：2012/11/19 15:35:00
--
应该这样就可以了。
If DataTables("会员信息表").HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("会员信息表").save
Forms("会员信息表").close
End If
End If
-- 发布时间：2012/11/19 15:42:00
-- 高手，这个没反应啊
这个执行了，连关闭都关闭不了了啊，没反应
-- 发布时间：2012/11/19 15:45:00
--
楼主，你是在什么事件里写的这写代码？
-- 发布时间：2012/11/19 15:50:00
-- click
是BUTTON按钮 名称是 关闭
然后再click里面写的
-- 发布时间：2012/11/19 16:01:00
--
If DataTables("会员信息表").HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("会员信息表").save
End If
End If
Forms("会员信息表").close
-- 发布时间：2012/11/19 16:12:00
-- 还是不行啊
高手
我把项目给你看看吧
那段代码输进去后 就直接关闭了
不提示
麻烦您了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
就是点关闭后
让它提示是 YES NO 和取消
YES 直接关闭保存
NO 直接关闭不保存
取消 就直接取消
-- 发布时间：2012/11/19 16:15:00
--
这段代码的意思是: 表有无修改? 有就提示是否保存, 然后关闭! 如果没有修改直接关闭 !
林女侠 写个注释呗!
-- 发布时间：2012/11/19 16:18:00
-- 是的，是的
不好意思哈
嗯
是我没有搞明白
不好意思哈
我是菜鸟
多谢各位的帮助了
这个刚学代码有点小头晕
-- 发布时间：2012/11/19 16:19:00
--
这次，行不？
If DataTables("会员信息表").HasChanges Then \'如果修改了
Dim Result As DialogResult
Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) \'弹出对话框
If Result = DialogResult.Yes Then \'选择是
DataTables("会员信息表").save
Forms("会员信息表").close
Else If Result = DialogResult.No Then \'选择否
Forms("会员信息表").close
End If
End If
[此贴子已经被作者于2012-11-19 16:20:24编辑过]