主题：填充数据

Dim f1 As New Filler

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

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

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

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

f1.ExcludeExistValue=True

f1.Fill() '填充数据

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

参考

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

http://www.foxtable.com/webhelp/scr/2137.htm

 

Dim Vals As List(of String())
Vals = DataTables("查询表1").GetValues("供应商名称|本单日期|成品入库单号|领料出库单号|成品入库成色|领料出库成色")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("成品入库与领料出库复核检查").find("供应商名称 = '" & Vals(i)(0) & "' and 本单日期 = '" & Vals(i)(1) & "'")
    If dr Is Nothing Then dr = DataTables("成品入库与领料出库复核检查").addnew
    dr("供应商名称") = Vals(i)(0)
    dr("本单日期") = Vals(i)(1)
    dr("成品入库单号") = Vals(i)(2)
    dr("领料出库单号") = Vals(i)(3)
    dr("成品入库成色") = Vals(i)(4)
    dr("领料出库成色") = Vals(i)(5)
Next

只能排除与主键一致的数据。非主键，只能手工排除http://www.foxtable.com/webhelp/scr/1533.htm

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、成品入库与领料出库复核检查表中还存在其他列

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

1、请确保你各列的值都不为空，弹出条件看看

 

output.show("供应商名称 = '" & dr("供应商名称") & "' and 本单日期= '" & dr("本单日期") & "' and 成品入库单号= '" & dr("成品入库单号") & "' and 领料出库单号= '" & dr("领料出库单号") & "' and 成品入库成色= '" & dr("成品入库成色") & "' and 领料出库成色= '" & dr("领料出库成色") & "'")

 

2、如果你有一些列的值为空，需要这样合成条件，如

 

Dim filter As string = "1=1"

If dr("供应商名称") = nothing Then

    filter &= " and 供应商名称 is null"

Else

    filter &= " and 供应商名称 = '" & dr("供应商名称")  & "'"

End If

If dr("本单日期") = nothing Then

    filter &= " and 本单日期 is null"

Else

    filter &= " and 本单日期 = '" & dr("本单日期")  & "'"

End If

 

msgbox(filter)

1、msgbox(dr("本单日期")) 弹出什么？

 

2、改成这样呢？

 

本单日期= #" & dr("本单日期") & "#