- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 删除对话框问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126494)
-- 发布时间：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编辑过]
-- 发布时间：2018/10/22 20:18:00
--
Dim r As Row = Tables("lhjc").current
If r IsNot Nothing
If r.IsNull("检测状态") Then
If MessageBox.Show("是否删除数据?","提示",messageboxbuttons.yesno) = DialogResult.Yes Then
r.Delete()
End If
Else
messagebox.show("已进行检测,不可以删除!","提示",messageboxicon.warning)
End If
End If
-- 发布时间：2018/10/22 20:34:00
--
此主题相关图片如下：qq截图20181022203254.png
还是出错啊
-- 发布时间：2018/10/22 21:32:00
--
messagebox.Show("已进行检测,不可以删除!","提示",MessageBoxButtons.OK,messageboxicon.warning)