当我要删除某行时、弹出
此主题相关图片如下:360截图20140630164520046.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/201463016455461359.jpg)
点击“是”后重复显示同样的的窗口;点击“否”后弹出如下提示,关闭后能删除。
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:360截图20140630165000609.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/201463016493697535.jpg)
我的全局表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