Dim sql,sql2 As String
Dim jb As New SQLJoinTableBuilder("销量统计","TbConFMD")
'jb.C
jb.AddTable("TbConFMD","ConFMID","TbConFM","ID")
jb.AddTable("TbConFM","ConID","TbCon","ID")
jb.AddTable("TbConFMD","WLID","TbWL","ID")
jb.AddCols("{TbWL}.ID","ICA","{TbCon}.ID","ApplyPeriod","ReplyA","{TbWL}.WLID")
sql = jb.BuildSQL
SQL2 ="Select A.*,b.RBSDID, b.UA F" & "rom(" & sql & ") a INNER JOIN {TbWLRBSD} b ON a.WLID = b.WLID"
'Output.Show(sql2)
Dim q As new QueryBuilder
q.TableName = "销量统计"
'q.C
q.SelectString = sql2
q.Build
MainTable = Tables("销量统计")