以下是引用www111998在2018/5/2 16:50:00的发言:
之前也试,就是没有成功,今天再试就成功了 哈哈
红色代码修改了
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)