| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 相同记录不复制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150918) |
| -- 作者：susanhe -- 发布时间：2020/6/10 22:06:00 -- [求助] 相同记录不复制 你好， 表A和表B 中各有第一列和第二列。如何在窗口的代码中增加以下功能 ： 复制表A中的第一列和第二列的记录到 表B中，当表A第一列跟表B中第一列的内容相同时，表A中的这条记录就不再复制到表B中。谢谢。 |
| -- 作者：sloyy -- 发布时间：2020/6/11 1:05:00 -- 先判断,不相等再复制,就这么简单 |
| -- 作者：有点蓝 -- 发布时间：2020/6/11 8:47:00 -- 比如： Dim Cols1() As String = {"第一列","第二列"} For Each dr1 As DataRow In DataTables("表A").DataRows If DataTables("表B").find("第一列=\'" & dr1("第一列") & "\'") Is Nothing Then Dim dr2 As DataRow = DataTables("表B").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols1(i)) = dr1(Cols1(i)) Next End If Next |