If DataTables("收购").Find("[打印] = false ") 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("收购").Filter = "[打印] = false " '收购中筛选出打印为空的记录.
MainTable = Tables("MAIN") '选择收购作为主表.
End If
如何做到关闭项目时,跳过上述项目属性beforcloseproject,直接关闭项目?