Dim gf As New SQLJoinTableBuilder("表", "zhxx") '定义一个查询表
Dim dt As fxDataSource
gf.C
gf.AddCols("sthlybh", "zhbh", "zhkhhmc", "zhyhzh", "zhzp", "zhzt", "zhbz", "zhdabh", "zhlrsj")
gf.Order = ("sthlybh")
dt = gf.BuildDataSource()
MessageBox.Show("0")
Dim ht As New SQLJoinTableBuilder("表1", "sthlyjbxx")
Dim dt1 As fxDataSource
ht.C
ht.AddCols("stjbszz", "stjbszc", "sthlybh", "stjbxm", "stjbsfzh")
MessageBox.Show("1")
dt1 = ht.BuildDataSource()
dt1.Combine("sthlybh", dt, "sthlybh")
Tables("窗口1_Table1").DataSource = dt1
Tables("窗口1_Table1").Filter = "zhbh <> '' " '对
Tables("窗口1_Table1").Save
出错：已添加了具有相同键的项。
加好友 
发短信
Post By：2023/1/19 9:16:00 [只看该作者]
