- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]两表不重复复制问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170938)
-- 发布时间：2021/8/11 20:14:00
-- [求助]两表不重复复制问题
在表A中新增一个姓名和电话号码后如何自动复制到表B的姓名和电话号码列中？
如果表B中有姓名和电话号码就不复制
要在哪里设置代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2021/8/12 9:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.zip |
-- 发布时间：2021/8/12 11:19:00
--
姓名和电话号码都一样时仍然会复制，如何设置才能不重复复制？
此主题相关图片如下：图像 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编辑过]
-- 发布时间：2021/8/12 11:44:00
--
Select Case e.DataCol.Name
Case "姓名"
Dim filter As String
filter = "姓名 = \'" & e.OldValue & "\' and 呼叫类型=\'来电\'"
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("姓名") & "\' and 呼叫类型=\'来电\'"
Dim pr As DataRow = DataTables("用户管理").Find(filter)
If pr IsNot Nothing Then
pr("电话号码") = e.DataRow("电话号码")
End If
End Select