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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]做导入时如何不重复导入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38730)

--  作者：sky
--  发布时间：2013/8/5 16:44:00
--  [求助]做导入时如何不重复导入
做导入时如何不重复导入
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.foxdb

--  作者：狐狸爸爸
--  发布时间：2013/8/5 16:52:00
--

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

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

--  作者：Bin
--  发布时间：2013/8/5 16:53:00
--
增加行的时候先利用datatables("XX").FInd 查找一下是否有相同的行没有再增加

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

--  作者：狐狸爸爸
--  发布时间：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

--  作者：sky
--  发布时间：2013/8/5 17:11:00
--

以下是引用狐狸爸爸在2013-8-5 16:52:00的发言：

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

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

一物一码原则，应该是根据物料编号。

--  作者：Bin
--  发布时间：2013/8/5 17:13:00
--

以下是引用sky在2013-8-5 17:11:00的发言：

一物一码原则，应该是根据物料编号。

那么你利用
DataTables("报价汇总表").find("物料编号 = \'" & dr1("物料编号") & "\'")
然后判断
If dr2 IsNot Nothing Then 找到的行是否为空即可达到你的目的

--  作者：sky
--  发布时间：2013/8/6 8:49:00
--

以下是引用狐狸爸爸在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

感谢狐爸解疑，问题解决。我改成逐单并非整表导入了。

--  作者：sky
--  发布时间：2013/8/6 8:51:00
--

以下是引用Bin在2013-8-5 17:13:00的发言：

那么你利用
DataTables("报价汇总表").find("物料编号 = \'" & dr1("物料编号") & "\'")

然后判断

If dr2 IsNot Nothing Then 找到的行是否为空即可达到你的目的

问题解决。谢谢！