主题：填充数据

参考

 

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

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("本单日期") & "#

改成

 

Jb1.AddExp("检查日期", "#"& StartDate &"#")  ‘检查日期列类型为日期时间