Dim bm As String = "表D1"
Dim jba As New SQLJoinTableBuilder(bm, "表A")
jba.AddCols("产品编号", "品名", "数量 as 表A数量")
Dim da As fxDataSource = jba.BuildDataSource()
Dim jbb As New SQLJoinTableBuilder(bm, "表B")
jbb.AddCols("产品编号", "品名", "数量 as 表B数量")
Dim jbc As New SQLJoinTableBuilder(bm, "表C")
jbc.AddCols("产品编号", "品名", "数量 as 表C数量")
Dim Cols As String = "产品编号|品名"
da.Combine(Cols.split("|"), jbb.BuildDataSource(), Cols.split("|"))
da.Combine(Cols.split("|"), jbc.BuildDataSource(), Cols.split("|"))
da.Show(bm)
[此贴子已经被作者于2023/3/23 17:21:43编辑过]