If vars("按钮") = "新增" Then Dim dr = DataTables("HR_花名册").sqlfind("身份证号码='" & Tables("HR_花名册").Current("身份证号码") & "'") If dr IsNot Nothing Then MessageBox.Show("身份证号码重复!!!") End If
End If Tables("HR_花名册").Current.Locked=True Tables("HR_花名册").Current.DataRow.Save e.Form.Close