Dim jb As New SQLJoinTableBuilder("统计表1","粮食直补")
jb.AddCols("资金名称",True)
jb.AddExp("农户数","Count(农户名称)")
jb.AddExp("金额","Sum(金额)")
Dim jb1 As New SQLJoinTableBuilder("统计表1","退耕还林")
jb1.AddCols("资金名称",True)
jb1.AddExp("农户数","Count(农户名称)")
jb1.AddExp("金额","Sum(金额)")
jb.Union(jb1,True)
jb.Build()
MainTable = Tables("统计表1")