感谢管理员老师亲自解惑！
此主题相关图片如下：无标题1234567898.jpg
自定义录入能解决问题，但是从我们实际来看，重名频率不高，我打算在表A增加“是否重名”逻辑列，对重名人员进行标示：
If e.DataCol.Name = "姓名" Then
Dim dr As DataRow
dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
e.DataRow("是否重名") = True
Else
e.DataRow("是否重名") = False
？？？？？？？？？？？？？？
End If
End If
另外，在表B设置DataColChanged事件，没有重名的就填入表A中改姓名对应的编号，如果有重名，就不填信息，并弹窗提示手工录入：
If e.DataCol.Name = "姓名" Then
If e.NewValue Is Nothing Then
e.DataRow("编号") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表A").Find("[姓名] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
Dim pdr As DataRow
pdr = DataTables("表A").Find("[是否重名] = '" & e.NewValue & "'")
If pdr = True Then
e.DataRow("编号") = dr("编号")
Else
e.DataRow("编号") = Nothing
MessageBox.Show("该村干部存在重名,请手工录入村干部编号!")
End If
else
e.DataRow("编号") = Nothing
e.DataRow("姓名") = Nothing
MessageBox.Show("该村干部不存在,请先在表A录入此村干部信息!")
End If
End If
End If
存在两个问题，请老师指导
一是表A中重名人员标示问题，现在实现了新录入的对应列判断，怎么实现与此新录入人员重名的也标示呢？
二是表B中，录入姓名列后，判断表A中是否有对应人员，如没有，则不能录入信息；如有，继续判断对应的“是否重名”列是否为真，如果重名，则不录入“编号”，弹窗“请手工录入”
[此贴子已经被作者于2019/8/15 16:28:50编辑过]
加好友 
发短信
Post By：2019/8/14 17:08:00 [只看该作者]
