窗口AfterClose代码如下:Dim sts() As String = {"facelb1","facelb2","facename"}
For Each st As String In sts
If Tables("tblsealface").Current.isnull(st) = True Then
MessageBox.Show ("请将分类1,分类2,名称段填写完整!","提醒")
Return
End If
Next
If DataTables("tblsealface").HasChanges = True Then
DataTables("tblsealface").Save
End If
这个代码只是提醒了,但是关闭窗口还是新增了一行
如何将必填字段填写完整才能关闭窗口呢?
[此贴子已经被作者于2021/7/29 11:44:54编辑过]