老师，我在afterload窗口新增一行并保存，然后在beforeclose事件中如果判断到当前行为写入任何内容则删除当前行？下面的代码不管用哎？是不是因为

If Tables("person").Current Is Nothing Then \'如果当前行为空
     With Tables("person")
         .Current.Delete
         e.Form.Close
     End With
End If

此主题相关图片如下：11.png

就比如这么个，我点那个关闭按钮前判断下，用户如果没有做任何操作，只是打开看一下，则点关闭按钮就把当前行删除了？

比如

Dim r As Row = Tables("person").Current
If r("第一列") = Nothing AndAlso r("第二列") = Nothing Then
    r.delete
End If

Dim r As Row = Tables("person").Current
If r("cardID") = Nothing AndAlso r("name") = Nothing Then
    r.delete
    e.Form.Close
End If

MessageBox.Show("xxx")
If Tables("person").Current IsNot Nothing AndAlso Tables("person").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("基本信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If
MessageBox.Show("yyyy")

这个为啥xxx 和yyy和出现两次？

1、在新增窗口党员那里选择了中共党员，然后点击取消

此主题相关图片如下：1.png

 2、出来如下画面，里面的信息是上一个人的信息，

此主题相关图片如下：2.png

取消按钮的代码：

With Tables("person")
     .Current.Delete
      e.sender.enabled = False
End With

\'\'加载排序

\'\' 获取登录用户单位的辅助列名称,用于设置加载条件
Dim organFuZhu As String=""
Dim dr2  As  DataRow
dr2 =  DataTables("organList").Find("[organName] = \'" & _UserOrgan &  "\'") \'否则在单位表查找同名的单位行,将找到的行赋值给变量dr
If dr2 IsNot Nothing Then  \'如果找到了同名的单位行,也就是dr不是Nothing
      organFuZhu = dr2("fuZhu")
Else
      Messagebox.show("登录用户单位不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End  If

\'\'设置加载条件,依赖于当前登录用户所属单位的辅助列
DataTables("person").LoadFilter = "fuZhu Like \'" & organFuZhu & "%\'"
DataTables("person").LoadTop = Nothing
DataTables("person").Load
Tables("person").sort = "fuZhu"
e.Form.Close

老师，我觉得就是这个取消我觉得控制好复杂呀，因为它涉及到人员表和家庭信息表，但又好像不是两个表的问题，是取消按钮和窗口的关闭按钮的功能，我头绪特别乱

不是，老师， 因为每新增一个，就后台增加了一行，在这个新增的行上写入，如果取消的时候不删除，那么库里面就会有很多空白行，或者废数据，

我用sql语句insert这些字段，效率上低不？大概30个左右字段？