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

点击浏览该文件:数据管理.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()

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

学习了，谢谢！