主题：[求助]导入问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据管理.rar

 

窗口管理-厂发数量 合并数据 代码是合并时跳过车号相同的数据。

Dim Book As New XLS.Book("d:\数据管理\厂发货数.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("厂发货数量").StopRedraw()
Dim nms() As String = {"车号","到站","规格","件数","吨位","实重"}
 For n As Integer = 1 To Sheet.Rows.Count -1
    Dim ch As String = sheet(n,0).Text
    If DataTables("厂发货数量").Find("车号 = '" & ch & "'") Is Nothing Then '如果不存在同编号的订单
        Dim r As Row = Tables("厂发货数量").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("厂发货数量").ResumeRedraw()

 

代码没作用，车号相同的数据也复制了进去了，没有出现跳过车号相同的数据。请老师帮看下

Dim Book As New XLS.Book("d:\数据管理\厂发货数.xls") 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("厂发货数量").StopRedraw()
Dim nms() As String = {"车号","到站","规格","件数","吨位","实重"}
 For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim ch As String = sheet(n,1).Text   '你车号是第二列
    If DataTables("厂发货数量").Find("车号 = '" & ch & "'") Is Nothing Then '如果不存在同编号的订单
        Dim r As Row = Tables("厂发货数量").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("厂发货数量").ResumeRedraw(

学习了，谢谢！

还有是会导入10几行空白的是什么原因？

你的代码没问题,有空行是因为你的表格有空行

空行的以前有数据删去了吗？