以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个数据源,FIll方法如何使用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179632)

--  作者:北狐
--  发布时间:2022/8/31 19:37:00
--  多个数据源,FIll方法如何使用
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编辑过]

--  作者:haojj_2022
--  发布时间:2022/9/1 7:47:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2022/9/1 9:13:00
--  
不同数据源,无法使用fill,只能按照像SQLJoinTableBuilder那样处理
--  作者:北狐
--  发布时间:2022/9/1 14:50:00
--  
老师,那有其他变通方法把不同数据源的数据合并到同个窗口中的Table控件中吗?
--  作者:有点蓝
--  发布时间:2022/9/1 14:53:00
--  
就是1楼的用法啊:http://www.foxtable.com/webhelp/topics/1909.htm

……
jb1.Merge(jb2) \'组合jb2
Tables("窗口1_Table1").DataSource = jb1.BuildDataSource()