Foxtable(狐表)用户栏目专家坐堂 → [求助] 删除


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

主题:[求助] 删除

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 删除  发帖心情 Post By:2014/6/27 17:17:00 [只看该作者]

在全局表事件BeforeSelChange中写有以下命令:
'1 开始 :以下内容目的是为确保在换行之前监测当前行内容是否被修改,如果被修改即不允许换行并弹出提示
If e.NewRange.RowSel < 0 Then
    vars("del") = True
End If
If e.NewRange.RowSel >= 0 AndAlso vars("del") = False AndAlso e.Table.current.DataRow.RowState <> DataRowState.Unchanged AndAlso vars("add") = False Then
    If e.NewRange.RowSel <> e.OldRange.RowSel Then
        e.Cancel=True
        MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
    End If 
End If
vars("add")=False

'1 结束

现在有一个取消窗口、写有命令:
CurrentTable.Current.Reject()'撤销操作

e.Form.Close() '关闭该窗口


直接新增加一行后、没有点击保存 就直接点击 “取消窗口”;项目弹出如下提示。

图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看



我该怎么修改?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/27 17:20:00 [只看该作者]

按钮代码改一下

 

SystemReady = False

CurrentTable.Current.Reject()'撤销操作

SystemReady = True
e.Form.Close() '关闭该窗口


 回到顶部