在全局表事件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
我该怎么修改?