Dim c3 As String = e.Form.Controls("ComboBox3").Value
Dim c4 As String = e.Form.Controls("ComboBox4").Value
Dim jb As New SQLJoinTableBuilder("销售查询","table_7")
jb.AddTable("table_7","订单编号","table_6","订单编号")
jb.AddCols("{table_6}.订单编号","销售区域","订单性质","订单日期","客户名称","产品名称及规格","产品单价","产品数量")
jb.Filter = "销售区域 = '"& c4 &"' and 销售区域 = '" & c3 & ""
jb.Build()
MainTable = Tables("销售查询")