主题：[求助]如何实现不重复合并（已解决）

按钮代码，将excel表的内容合并到“余额导入”表中，如何做到不重复导入相同的资料，请各位老师指教，谢谢！！

Dim mydate As Date = Forms("余额导入").Controls("DateTimePicker1").Text
Dim ny As String = format( mydate,"yyyy-MM")
Dim Book As New XLS.Book(ProjectPath & "银行余额.xls")
For i As Integer = 0 To Book.Sheets.Count -1
    Dim a As String = Book.Sheets(i).Name
    If a = ny  Then
        Dim mg As New Merger
        mg.SourcePath = ProjectPath & "银行余额.xls"
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "" & ny &"$" '指定要合并的表
        mg.DataTableName = "余额导入" '指定接收数据的表
        mg.Merge() '开始合并
        DataTables("余额导入").Save()
        Return
    End If
Next
Messagebox.show("需导入的数据不存在!","提示")

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

点击浏览该文件:管理项目177.rar

手工编码合并

Dim Book As New XLS.Book("c:\reports\test.xls")
Dim Sheet As XLS.Sheet = book.Sheets(0)
For r As Integer = 0 To sheet.Rows.count -1
    '取得此行相关值,判断是否有重复
    For c As Integer = 0 To sheet.cols.count -1
         output.show(sheet(r,0).value)
    Next
Next

建议先看看,开发指南 - Excel报表 - 报表编程这一章.

谢谢狐爸老师的回复，可能是我表述有问题。不是表内重复，是表间重复，换一句话说，已导入的内容，如果再导入的话，给出提示，并终止程序运行。这个功能如何实现，请狐爸老师指教，谢谢！！

其实我给你是一个思路。

Dim mydate As Date = Forms("余额导入").Controls("DateTimePicker1").Text
Dim ny As String = format( mydate,"yyyy-MM")
Dim Book As New XLS.Book(ProjectPath & "银行余额.xls")
Dim bh As String = Book.Sheets(0)(1,7).Text
If bh >  "" AndAlso DataTables("余额导入").Find("编号 = '" & bh & "'") IsNot Nothing Then
    messagebox.show("已经导入了")
    Return
End If
For i As Integer = 0 To Book.Sheets.Count -1
    Dim a As String = Book.Sheets(i).Name
    If a = ny  Then
        Dim mg As New Merger
        mg.SourcePath = ProjectPath & "银行余额.xls"
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "" & ny &"$" '指定要合并的表
        mg.DataTableName = "余额导入" '指定接收数据的表
        mg.Merge() '开始合并
        DataTables("余额导入").Save()
        Return
    End If
Next
Messagebox.show("需导入的数据不存在!","提示")