Foxtable(狐表)用户栏目专家坐堂 → 关于“表被修改后进行关闭”的代码


  共有9646人关注过本帖树形打印复制链接

主题:关于“表被修改后进行关闭”的代码

帅哥哟,离线,有人找我吗?
laotianshun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:203 威望:0 精华:0 注册:2012/10/18 21:29:00
关于“表被修改后进行关闭”的代码  发帖心情 Post By:2012/12/2 14:14:00 [只看该作者]

当表被修改后,选择关闭,会弹出一对话框,显示已经被修改,是否保存,如果选是,就保存,并关闭窗口”

下面是我写的,发现当我按“关闭”时,弹出对话框后,选了是保存后,窗口没关闭,只是对话框关闭了,要再按多一次“关闭”才关掉窗口,不知该如何修改?

If DataTables("物料信息表").HasChanges Then
  If  MessageBox.Show("物料信息表已经被修改,是否保存","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
    DataTables("物料信息表").save
   End If
    Else
 Forms("物料信息表").close
End If


 回到顶部
帅哥哟,离线,有人找我吗?
sgs
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:365 积分:2693 威望:0 精华:1 注册:2011/11/25 7:55:00
  发帖心情 Post By:2012/12/2 15:16:00 [只看该作者]

If DataTables("物料信息表").HasChanges Then
If  MessageBox.Show("物料信息表已经被修改,是否保存","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
    DataTables("物料信息表").save
End If 

End If
Forms("物料信息表").close


 回到顶部
帅哥哟,离线,有人找我吗?
laotianshun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:203 威望:0 精华:0 注册:2012/10/18 21:29:00
  发帖心情 Post By:2012/12/2 21:36:00 [只看该作者]

谢谢

 回到顶部