主题：从EXCEL提取值 的问题

DataTables("表B").DataRows.Clear()
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("总表")
    Dim n1 As Integer = 0
    Dim n2 As Integer = 0
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim cr As Row = Nothing
        For Each r As Row In t.Rows
            If r("二次") = False
                Dim count As Integer = 0
                If r("上游客户") = sheet(n, 0).text Then count += 1
                If r("商品车") = sheet(n, 1).text Then count += 1
                If r("运输单号") = sheet(n, 2).text Then count += 1
                If r("上游动态") = sheet(n, 3).text Then count += 1
                If count = 4 Then
                    cr = r
                    Exit For
                End If
            End If
        Next
       
        If cr Is Nothing Then
            cr = Tables("表B").AddNew()
            n1 += 1
        Else
            n2 += 1
        End If
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
                If cr.Table.Cols.Contains(cname) Then
               cr(cname) = sheet(n, i).Text
           ElseIf cname = "上游对账金额" Then
                cr("上游对账金额") = sheet(n, i).Text
            End If
        Next
    Next
    messagebox.show(n1 & " " & n2, "提示")
End If

 

假设EXCLE有10条数据，其中有5条是重复的，而狐表中的【总表】中有20条数据（必然重复的更多一些）与这10条完全相符，如何能完不多不少的匹配出EXCEL中的10条数据呢

这段代码只能实现将重复数据中的第一条填写上了，其他的则为空

此主题相关图片如下：qq截图20200226194405.png


此主题相关图片如下：qq截图20200226200255.png


此主题相关图片如下：qq截图20200226195457.png

请老师指导一下代码怎么修改

[求助]麻烦老师指导

老师，还是不行啊，表内有相同数据的行，只第一行能代入数据，后面的就都代不出来

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

点击浏览该文件:导入.xlsx

请指导

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

点击浏览该文件:管理项目1.table