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