姓名和电话号码都一样时仍然会复制，如何设置才能不重复复制？
此主题相关图片如下：图像 8.png
代码怎么改才能增加复制条件？
就是只复制呼叫类型列是来电的电话号码
此主题相关图片如下：图像 2.png
Select Case e.DataCol.Name
Case "呼叫类型"
Dim filter As String
filter = "呼叫类型 = '" & e.OldValue & "'"
Dim pr As DataRow = DataTables("用户管理").Find(filter)
If pr Is Nothing Then
pr = DataTables("用户管理").AddNew
End If
pr("呼叫类型") = e.DataRow("呼叫类型")
pr("电话号码") = e.DataRow("电话号码")
Case "电话号码"
Dim filter As String
filter = "呼叫类型 = '" & e.DataRow("呼叫类型") & "'"
Dim pr As DataRow = DataTables("用户管理").Find(filter)
If pr IsNot Nothing Then
pr("电话号码") = e.DataRow("电话号码")
End If
End Select
[此贴子已经被作者于2021/8/12 11:24:43编辑过]
加好友 
发短信
Post By：2021/8/11 20:14:00 [显示全部帖子]
