- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 删除 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53029)
-- 发布时间：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
我该怎么修改？
-- 发布时间：2014/6/27 17:20:00
--
按钮代码改一下
SystemReady = False
CurrentTable.Current.Reject()\'撤销操作
SystemReady = True
e.Form.Close() \'关闭该窗口