我想在以下代码增加条件,无法解决,求助
1. 当菜单 功能区1 存在的时候提示表B 的空行 , 如果 功能区1 不存在不提示
2. 多列不能为空如何改写代码
谢谢!
If
DataTables("表B").Find("[状态] Is Null") Is Nothing
Then
Return
'那么返回
End
If
Dim Result As DialogResult
Result = Messagebox.Show("存在状态不确定的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
'如果用户选择否
e.Cancel = True
'取消关闭项目
Tables("表B").Filter = "[状态] Is Null"
'表B中筛选出状态为空的记录。
MainTable = Tables("表B") '选择表B作为主表。
End
If