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)
加好友 
发短信
Post By：2014/2/17 18:12:00 [只看该作者]
