主题：填充数据

Dim f1 As New Filler

f1.SourceTable = DataTables("成品入库与领料出库复核检查1") '指定数据来源

f1.SourceCols = "供应商名称,本单日期,成品入库单号,领料出库单号,成品入库成色,领料出库成色" '指定数据来源列

f1.DataTable = DataTables("成品入库与领料出库复核检查") '指定数据接收表

f1.DataCols = "供应商名称,本单日期,成品入库单号,领料出库单号,成品入库成色,领料出库成色" '指定数据接收列

f1.ExcludeExistValue=True

f1.Fill() '填充数据

接收表还有其他字段（这些字段会修改），这样会导致填充过来的数据有重复，如何避免？

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim sCols() As String = {"供应商名称","本单日期","成品入库单号","领料出库单号","成品入库成色","领料出库成色"}

Dim dCols() As String = {"供应商名称","本单日期","成品入库单号","领料出库单号","成品入库成色","领料出库成色"}

cmd.Cfont-size: 9pt; font-family: 宋体;">龙域"

cmd.CommandText = "过长就不显示，查询结果为{"供应商名称","本单日期","成品入库单号","领料出库单号","成品入库成色","领料出库成色"}这几个字段"

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.DataRows

    If DataTables("成品入库与领料出库复核检查").Find("供应商名称 = '" & dr("供应商名称") & "' and 本单日期= '" & dr("本单日期") & "' and 成品入库单号= '" & dr("成品入库单号") & "' and 领料出库单号= '" & dr("领料出库单号") & "' and 成品入库成色= '" & dr("成品入库成色") & "' and 领料出库成色= '" & dr("领料出库成色") & "'") Is Nothing  Then

        Dim nr As DataRow = DataTables("成品入库与领料出库复核检查").AddNew()

        For i As Integer =0 To sCols.Length -1

            nr(dCols(i)) = dr(sCols(i))

        Next

    End If

Next

使用以上代码后，成品入库与领料出库复核检查中已存在相同的{供应商名称,本单日期,成品入库单号,领料出库单号,成品入库成色,领料出库成色}，但合并数据的时候没跳过，还合并进来

需求：1、当成品入库与领料出库复核检查中已存在完全相同的{供应商名称,本单日期,成品入库单号,领料出库单号,成品入库成色,领料出库成色}的行，但合并数据则跳过此行，不合并进来：

2、该行{供应商名称,本单日期,成品入库单号,领料出库单号,成品入库成色,领料出库成色}只要有其中一个字段不同，就合并进来

3、成品入库与领料出库复核检查表中还存在其他列

求老师帮看下，上述代码是哪里有问题？谢谢