主题：LSY老师，怎么把两个表合并在一个临时表里面？谢谢！

Dim cname As WinForm.ComboBox = e.Form.Controls("客户名称")

Dim d1 As WinForm.DateTimePicker = e.Form.Controls("日期1")

Dim d2 As WinForm.DateTimePicker = e.Form.Controls("日期2")

Dim filter1 As String = "1=1"

Dim filter2 As String = "1=1"

If cname.Text > "" Then

    filter1 += " and 客户名称 = '" & cname.text & "'"

    filter2 += " and 客户名称 = '" & cname.text & "'"

End If

If d1.Value <> Nothing Then

    filter1 += " and 出货日期 >= #" & d1.Value & "#"

    filter2 += " and 退货日期 >= #" & d1.Value & "#"

End If

If d2.Value <> Nothing Then

    filter1 += " and 出货日期 <= #" & d2.Value & "#"

    filter2 += " and 退货日期 <= #" & d2.Value & "#"

End If

Dim sql As String = "select 订单号, 下单日期, 客户名称, 客户型号, 订单数量, 出货日期, 出货数量, 单价, 出货数量*单价 as 金额, 备注 from {出货}" _

                & " where " & filter1 _

                & " union Select 订单号, '退货', 客户名称, 客户型号, '退货', 退货日期, 退货数量, 单价, -退货数量*单价 As 金额, 备注 from {生产}" _

                & " where " & filter2

e.Form.Controls("Table1").Table.fill(sql, "订单数据库", True)