主题：[求助]查询出错

报什么错？请做个例子上来测试。代码看着没问题。

Dim bm As String = "查询表"
Dim jb As New SQLJoinTableBuilder(bm,"JK_客户基本信息")
jb.AddTable("JK_客户基本信息","金卡号","购买记录","金卡号")
jb.AddCols("{JK_客户基本信息}.金卡号",True)
jb.AddCols("专卖店","客户分类","姓名","性别","年龄","服用人数","症状","服务人员","电话","手机","产品种类",True)
jb.AddExp("最后日期","Max(购买时间)")
jb.AddCols("{JK_客户基本信息}.备注",True)
Dim sql = jb.BuildSql
sql = "select *, 产品数量 as 购买数量 from {购买记录} as a inner join (" & sql & ") as b on a.金卡号 = b.金卡号 and a.购买时间 = b.最后日期"
output.show(sql)
Dim q As new QueryBuilder
q.TableName = bm
q.ConnectionName = "数据源"
q.SelectString = sql
q.Build
MainTable = Tables(bm)

Dim bm As String = "查询表"
Dim jb As New SQLJoinTableBuilder(bm,"JK_客户基本信息")
jb.AddTable("JK_客户基本信息","金卡号","购买记录","金卡号")
jb.AddCols("{JK_客户基本信息}.金卡号",True)
jb.AddCols("专卖店","客户分类","姓名","性别","年龄","服用人数","症状","服务人员","电话","手机","产品种类",True)
jb.AddExp("最后日期","Max(购买时间)")
jb.AddCols("{JK_客户基本信息}.备注",True)
Dim sql = jb.BuildSql
sql = "select *, 产品数量 as 购买数量 from {购买记录} as a inner join (" & sql & ") as b on a.金卡号 = b.金卡号 and a.购买时间 = b.最后日期"
output.show(sql)
Dim q As new QueryBuilder
q.TableName = bm
q.ConnectionName = "数据源"
q.SelectString = sql
q.Build
MainTable = Tables(bm)

根据你给的例子，代码这样写

 

Dim bm As String = "查询表"
Dim jb As New SQLJoinTableBuilder(bm,"客户表")
jb.AddTable("客户表","卡号","订单","卡号")
jb.AddCols("{客户表}.卡号",True)
jb.AddCols("姓名","订购类型", True)
jb.AddExp("最后日期","Max(购买时间)")
Dim sql = jb.BuildSql
sql = "select b.*,订购数量 from {订单} as a inner join (" & sql & ") as b on a.卡号 = b.卡号 and a.购买时间 = b.最后日期"
output.show(sql)
Dim q As new QueryBuilder
q.TableName = bm
q.SelectString = sql
q.Build
MainTable = Tables(bm) 

如果你需要获取购买数量，必须像8楼那样写代码。