- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 删除提示出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53137)
-- 发布时间：2014/6/30 16:51:00
-- [求助] 删除提示出错
当我要删除某行时、弹出
此主题相关图片如下：360截图20140630164520046.jpg
点击“是”后重复显示同样的的窗口；点击“否”后弹出如下提示，关闭后能删除。
此主题相关图片如下：360截图20140630165000609.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
-- 发布时间：2014/6/30 16:54:00
--
加入判断
if e.table.current isnot nothing then
\'代码
end if
-- 发布时间：2014/6/30 17:55:00
--
加了、还是点击 “是” 的时候老是重复弹出下面提示框；点击 “否” 后才能关闭提示框并删除了当前行
此主题相关图片如下：360截图20140630164520046.jpg
-- 发布时间：2014/6/30 17:57:00
--
上个例子看看.