Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xls"

If dlg.ShowDialog = DialogResult.OK Then

    Dim book As New XLS.Book(dlg.FileName)

    Dim sheet As XLS.Sheet = book.Sheets(0)

    Dim dt As DataTable = DataTables("表A")

    Dim dt_log As DataTable = DataTables("表B")

    dt_log.DataRows.Clear

    For i As Integer = 3 To Sheet.Rows.Count -1

        Dim xval1 As String = sheet(i, 1).Text

        Dim xval2 As String = sheet(i, 5).text

        Dim fdr As DataRow = dt.Find("品名 = \'" & xval1 & "\'")

        If fdr IsNot Nothing Then

            fdr("规格") = sheet(i, 2).Text

            fdr("价格") = sheet(i, 3).Text

        Else

            fdr = dt_log.Find("第二列 Is null")

            If fdr Is Nothing Then

                fdr = dt_log.AddNew

            End If

            fdr("第二列") = xval1

        End If

        fdr = dt.Find("品名2 = \'" & xval2 & "\'")

        If fdr IsNot Nothing Then

            fdr("规格2") = sheet(i, 6).Text

            fdr("价格2") = sheet(i, 7).Text

        Else

            fdr = dt_log.Find("第四列 is null")

            If fdr Is Nothing Then

                fdr = dt_log.AddNew

            End If

            fdr("第四列") = xval2

        End If

    Next

    For Each dr As DataRow In dt.Select("规格 is null")

        Dim fdr As DataRow = dt_log.Find("第一列 is null")

        If fdr Is Nothing Then

            fdr = dt_log.AddNew

        End If

        fdr("第一列") = dr("品名")

    Next

    For Each dr As DataRow In dt.Select("规格2 is null")

        Dim fdr As DataRow = dt_log.Find("第三列 is null")

        If fdr Is Nothing Then

            fdr = dt_log.AddNew

        End If

        fdr("第三列") = dr("品名2")

    Next

    MainTable = Tables("表B")

End If