Dim jb As New SQLJoinTableBuilder("查询表1","收款明细表")
jb.ConnectionName = "lh"
jb.AddTable("收款明细表","编码","收款单","编码")
' jb.AddCols("{收款单}.编码","帐户编号","帐号","收款方式","单位编号")
jb.AddCols("帐户编号","帐号","帐户名称","收款方式","单据编号")
jb.AddExp("日期","收款日期")
jb.AddExp("收入","sum(收款单.收款金额)")
'jb.AddExp("收入")
' jb.AddExp("收入","{收款单}.收款金额")
jb.Order = "日期"
MessageBox.Show( jb.BuildSql)
jb.Build()
MainTable = Tables("查询表1")