[求助]重复数据不复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重复数据不复制

共有1312人关注过本帖树形打印复制链接主题：[求助]重复数据不复制

jick0526

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

[求助]重复数据不复制 发帖心情

Post By：2017/3/22 20:14:00 [只看该作者]

老师，请问下，我要从其他表复制数据到A表，当A表的A列有重复数据时，系统会默认不复制A列有重复数据的这行，只会复制A列没有重复数据的行，这代码该怎么写，谢谢！

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/22 22:20:00 [只看该作者]

参考

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.DataRows
    If DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then
        Dim nr As DataRow = DataTables("员工").AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End If
Next

http://www.foxtable.com/webhelp/scr/1533.htm

下一主题 >> << 上一主题

主题：[求助]重复数据不复制