删除对话框问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除对话框问题

共有2553人关注过本帖树形打印复制链接主题：删除对话框问题

Engineer1

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

等级：童狐帖子：236 积分：1922 威望：0 精华：0 注册：2017/10/1 12:15:00

删除对话框问题 发帖心情

Post By：2018/10/22 19:31:00 [显示全部帖子]

请老师看一下这段代码应该怎么写，想删除当前表中状态为空的行，若非空则弹出警告对话框。

Dim r As Row = Tables("lhjc").current

If r("检测状态") <> "" Then

messagebox.show("已进行检测,不可以删除!","提示",messageboxicon.warning)

Return

Else

MessageBox.Show("是否删除数据?","提示",messageboxbuttons.yesno) = DialogResult.Yes Then

CurrentTable.current.delete()

End If

[此贴子已经被作者于2018/10/22 19:30:48编辑过]

Engineer1

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

等级：童狐帖子：236 积分：1922 威望：0 精华：0 注册：2017/10/1 12:15:00

Post By：2018/10/22 20:34:00 [显示全部帖子]

此主题相关图片如下：qq截图20181022203254.png

还是出错啊

主题：删除对话框问题