主题：合并EXCEL时重复记录问题

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    If MessageBox.Show("你选择的是:" & dlg.FileName,"提示",MessageBoxButtons.OKCancel) = DialogResult.OK Then
        Dim Book As New XLS.Book( dlg.filename )
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("明细表").StopRedraw()
        Dim nms() As String = { "fa piao号" }      '这里还要接上你要导入的相关列
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim bh As String = sheet(n,0).Text
            If DataTables("明细表").Find("fa piao号 = '" & bh & "'") Is Nothing Then '如果不存在重复的fa piao号
                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()
    End If
End If

利用字符传递筛选条件，让接受数据的表格选择要接收的数据，具体思路就这样。