'''SQLJionTableBuilder,查询表生成器
If Tables.Contains("产品订单") Then
MainTable = Tables("产品订单")
syscmd.Table.delete
MessageBox.Show("已删除‘产品总订单表’")
Else
Dim sjtb As New SQLJoinTableBuilder("产品订单","订单")
sjtb.C
sjtb.AddTable("订单","产品ID","产品","产品ID")
sjtb.AddTable("订单","客户ID","客户","客户ID")
sjtb.AddCols("产品名称","客户名称","单价","折扣","数量","日期")
sjtb.AddExp("金额","单价 * 数量")
sjtb.Caption = "产品总订单"
sjtb.Filter = "{订单}.产品ID <> 'P02'"
sjtb.Order = "日期"
sjtb.TableVisible = False
sjtb.Top = "10 percent"
sjtb.Build
If Tables.Contains("产品订单") Then
MainTable = Tables("产品订单")
End If
End If
加好友 
发短信
Post By：2019/3/14 10:47:00 [只看该作者]
