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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]做导入时如何不重复导入

共有4390人关注过本帖树形打印复制链接主题：[求助]做导入时如何不重复导入

sky

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

加好友

发短信

等级：婴狐帖子：6 积分：118 威望：0 精华：0 注册：2013/8/5 16:38:00

[求助]做导入时如何不重复导入 发帖心情

Post By：2013/8/5 16:44:00 [只看该作者]

做导入时如何不重复导入

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/5 16:52:00 [只看该作者]

我问一下，相同产品，是根据什么来判断，型号规格相同，就是相同产品？还是根据物料编号？

[此贴子已经被作者于2013-8-5 16:52:52编辑过]

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/5 16:53:00 [只看该作者]

增加行的时候先利用datatables("XX").FInd 查找一下是否有相同的行没有再增加

http://www.foxtable.com/help/topics/0396.htm

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/5 17:00:00 [只看该作者]

例如根据物料编号判断，您可以在命令窗口执行：

For Each dr1 As DataRow In DataTables("报价单明细").DataRows
    Dim dr2 As DataRow
    dr2 = DataTables("报价汇总表").find("客户代号 = '" & dr1("客户代号") & "' And 物料编号 = '" & dr1("物料编号") & "'")
    If dr2 IsNot Nothing Then
        If MessageBox.Show(dr1("客户代号") & "已经有" & dr1("物料编号") & "的报价,是否覆盖?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No Then
            Continue For
        End If
    Else
        dr2 = DataTables("报价汇总表").AddNew()
    End If
    For Each dc As DataCol In DataTables("报价单明细").DataCols
        If DataTables("报价汇总表").DataCols.Contains(dc.name) Then
            dr2(dc.name) = dr1(dc.name)
        End If
    Next
Next