Dim wfc As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cp As String
cp = wfc.Value
Dim jb As New SQLJoinTableBuilder("查询表1",cp)
jb.Connection 链接名 Name = "Sale"
jb.AddTable(cp,"产品ID","产品","产品ID")
jb.AddTable(cp, "客户ID","客户","客户ID")
jb.AddExp("产品","产品名称")
jb.AddCols("日期", "数量","单价")
jb.AddExp("金额","数量 * 单价")
jb.Filter="{客户}.客户ID='C01'"
jb.Build()
MainTable = Tables("查询表1")