BeforeCloseProject
我的审核列为逻辑值，而原来的状态列为字符，如何修改代码，未审核的数据不保存
For Each dt As DataTable In DataTables
If DataTables(dt.name).DataCols.Contains("审核") Then
If DataTables(dt.Name).Find("[审核] Is false") IsNot Nothing Then
Dim Result As DialogResult
Result = Messagebox.Show(dt.Name & " 存在状态不确定的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then '如果用户选择否
e.Cancel = True '取消关闭项目
Tables(dt.Name).Filter = "[审核] Is false" '表B中筛选出状态为空的记录.
MainTable = Tables(dt.Name) '选择表B作为主表.
Return
End If
End If
End If
Next
[此贴子已经被作者于2018/7/3 15:30:48编辑过]
加好友 
发短信
Post By：2018/7/3 15:30:00 [只看该作者]
