[求助] 删除提示出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3433人关注过本帖树形打印复制链接主题：[求助] 删除提示出错

wumingrong1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 删除提示出错 发帖心情

Post By：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

vars("add")=False

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/30 16:54:00 [只看该作者]

加入判断

if e.table.current isnot nothing then

'代码

end if

wumingrong1

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2014/6/30 17:55:00 [只看该作者]

加了、还是点击 “是” 的时候老是重复弹出下面提示框；点击 “否” 后才能关闭提示框并删除了当前行

此主题相关图片如下：360截图20140630164520046.jpg

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/30 17:57:00 [只看该作者]

上个例子看看.

下一主题 >> << 上一主题

主题：[求助] 删除提示出错