以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导入excel发生错误 子行具有多个父行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114912)
--  作者：hrlong
--  发布时间：2018/2/26 9:56:00
--  [求助]导入excel发生错误 子行具有多个父行
请问老师
该怎么修改下面的代码
原数据库内数据和要导入的文件内数据有重复。
要求，
("商品编码 = #" & arg(n, 3) & "# and 系统单号 = \'" & arg(n, 10) & "\' and 商品规格 = \'" & arg(n, 11) & "
这3列值和原数据库内值都一样的话，判断这行数据为重复，这行数据就不导入，否则就导入这行数据；
导入完成后，把其中注明的几列的值赋值到另一个表




=============================代码如下=========================

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("订单原表")
    t.ResumeRedraw()
    t.StopRedraw()
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim arg = rg.value
        For n As Integer = 2 To rg.Rows.Count
            Dim r As DataRow = t.DataTable.Find("商品编码 = #" & arg(n, 3) & "# and 系统单号 = \'" & arg(n, 10) & "\' and 商品规格 = \'" & arg(n, 11) & "\'")
            
            If r Is Nothing Then r = t.DataTable.AddNew()
            For i As Integer = 1 To rg.Columns.count
                Dim cname As String = arg(1,i)
                If cname > "" AndAlso t.Cols.Contains(cname) Then
                    If t.Cols(cname).IsDate AndAlso arg(n,i).Gettype.name = "double" Then
                        r(cname) = DateTime.FromOADate(arg(n,i))
                    Else
                        r(cname) = arg(n, i)
                    End If
                ElseIf cname = "收件人姓名*"
                    r("收件人姓名") = arg(n, i)
                ElseIf cname = "收件人电话/手机"
                    r("收件人电话") = arg(n, i)
                ElseIf cname = "商品编码*"
                    r("商品编码") = arg(n, i)
                End If
            Next
        Next
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        t.ResumeRedraw()
        app.quit
    End try
    
End If
Dim f As New Filler
f.SourceTable = DataTables("订单原表") \'指定数据来源
f.SourceCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号" \'指定数据来源列
f.DataTable = DataTables("订单") \'指定数据接收表
f.DataCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号"  \'指定数据接收列
f.Fill() \'填充数
--  作者：有点甜
--  发布时间：2018/2/26 10:20:00
--  

首先，提示【子行具有多个父行】是因为：父表有重复的数据（比如父表使用编号关联，但是001的编号有多个的时候，就报错，因为你子表引用父表的数据，多个的时候不知道引用哪一行）

 

是不是你订单表和订单明细之间的关系？你订单表有重复数据了？
--  作者：hrlong
--  发布时间：2018/2/26 13:53:00
--  
请问我下面的代码该怎么改下？因为代码是放在excel导入按钮里的，发现每次导入excel数据都把订单原表的数据往订单表里面赋值了一次，这样就导致重复了，怎么修改才能设置仅本次导入的值赋值到订单表里并且如果第一列系统单号值重复就跳过这一行？
============================================================================================

Dim f As New Filler
f.SourceTable = DataTables("订单原表") \'指定数据来源
f.SourceCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号" \'指定数据来源列
f.DataTable = DataTables("订单") \'指定数据接收表
f.DataCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号"  \'指定数据接收列
f.Fill() \'填充数
--  作者：有点甜
--  发布时间：2018/2/26 14:27:00
--  
Dim f As New Filler
f.SourceTable = DataTables("订单原表") \'指定数据来源
f.SourceCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号" \'指定数据来源列
f.DataTable = DataTables("订单") \'指定数据接收表
f.DataCols = "系统单号,原始单号,创建时间,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,留言,备注,批次流水号"  \'指定数据接收列
f.ExcludeExistValue = True
\'f.Append = false
f.Fill() \'填充数
--  作者：有点甜
--  发布时间：2018/2/26 14:28:00
--  

或者参考

 

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

 

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