主题：窗口中的sqlquery型的table 请教！！

红色代码修改了

Dim d1 As Date = e.Form.Controls("DateTimePicker1").value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").value
Dim filter As String = "1=1"
If d1 <> Nothing Then
    filter &= " and 购买时间 >= '" & d1 & "'"
End If
If d2 <> Nothing Then
    filter &= " and 购买时间 <= '" & d2 & "'"
End If
Dim sql = "select 客户编号, sum(数量) As 总数量, sum(金额) As 总金额,姓名,电话,住址,业务员 from (Select 客户编号,产品,数量,金额,购买时间,姓名,电话,住址,业务员 From {订单表} Left JOIN {客户信息} ON {客户信息}.[编号] = {订单表}.[客户编号] where " & filter & ") As a group by 客户编号, 姓名,电话,住址,业务员"
output.show(sql)
e.Form.controls("Table1").Table.fill(sql, "数据源", True)

把select得到的表格赋值为一个简短的名称，方便之后引用。