Foxtable(狐表)用户栏目专家坐堂 → 保存数据


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

主题:保存数据

美女呀,离线,留言给我吧!
xiaohuli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
保存数据  发帖心情 Post By:2014/4/10 16:40:00 [只看该作者]

 想实现在编辑窗口里,如果数据有修改,关闭之前提示要保存,保存后才可以关闭窗口,如果数据未修改,则可以直接关闭
这个怎么实现
我再BeforeClose写了代码如下:
If Tables("gdzc").Current.DataRow.RowState <> DataRowState.unchanged Then '如果当前行已经修改过
Dim Result As DialogResult
Result = MessageBox.Show("请先保存记录", "提示")
e.Cancel = True
End If
可是这个代码不对,就算是没有修改数据,他也会提示“请先保存记录”,这个怎么改呀

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/10 16:41:00 [只看该作者]

用HasChanges 判断 

If DataTables("X").HasChanges Then


 回到顶部
美女呀,离线,留言给我吧!
xiaohuli
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
  发帖心情 Post By:2014/4/10 16:50:00 [只看该作者]

我按你说的做了,就算没有修改数据,他也提示得要保存,没修改就应该直接关闭,修改了才应该出现提示呀。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/10 16:52:00 [只看该作者]

按道理不会的,请上例子.
[此贴子已经被作者于2014-4-10 16:53:19编辑过]

 回到顶部
美女呀,离线,留言给我吧!
xiaohuli
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
  发帖心情 Post By:2014/4/10 16:55:00 [只看该作者]

在编辑窗口的文本框里随便点击几下,没改变数据,他也提示要保存记录,要是一打开编辑窗口就直接关闭的话倒是不提示保存。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/10 16:57:00 [只看该作者]

是不是你设置了代码改变了值,或者值有空白,双击自动去掉了空白所以导致改变了值.

具体还请上个例子才好判断哦.

 回到顶部