Dim jb1 As New SQLJoinTableBuilder("查询表1", "")
jb1.数据源1
jb1.AddExp("厂家标识", "")
jb1.AddExp("厂家日期", "")
jb1.AddExp("厂家单号", "")
jb1.Filter = ""
jb1.Order = ""
Dim jb2 As New SQLJoinTableBuilder("查询表1", "")
jb2.数据源2
jb2.AddExp("厂家标识", "")
jb2.AddExp("厂家日期", "")
jb2.AddExp("厂家单号", "")
jb2.Filter = "{R02_Customer}.customerCode='" & cmdCustomerCode & "' and year({R04_CheckMaterialDetail}.smartDate)='" & year1 & "' and month({R04_CheckMaterialDetail}.smartDate)=(" & month1 & "-1)"
jb1.Merge(jb2) '组合jb2
jb1.Build()
MainTable = Tables("查询表1")
'生成窗口表
Tables("应付复核_Table5").Fill(这里应该怎么写?)
[此贴子已经被作者于2022/8/31 19:37:21编辑过]