Forms("退款记载结果").Open
Dim filter1 As String = ""
With e.Form.Controls("combobox1")
If .Value IsNot Nothing Then
filter1 = "[F5319]Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
If filter1 > "" Then
filter1 = filter1 & " And "
End If
filter1 = filter1 & "[F4384]Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
If filter1 >"" Then
filter1 = filter1 & " And "
End If
filter1 = filter1 & "[F4387] Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If filter1 >"" Then
filter1 = filter1 & " And "
End If
filter1 = filter1 & "[F4419]Like '%" & .Value & "%'"
End If
End With
Dim cal1 As WinForm.DateTimePicker = e.Form.Controls("datetimepicker1")
Dim cal2 As WinForm.DateTimePicker = e.Form.Controls("datetimepicker2")
If cal1.value IsNot Nothing And cal2.value IsNot Nothing Then
If filter1 > "" Then
filter1 = filter1 & " and"
End If
filter1 = filter1 & "[F4411] >= '" & cal1.value & " ' and [F4411] <= ' " & cal2.value & "'"
End If
If filter1 > "" Then
filter1 = filter1 & " and"
End If
Dim dt As DataTable = Forms("退款记载结果").Controls("Table1").Table.DataTable
dt.LoadFilter = filter1 & " [F4415]>0"
dt.Load
Forms("退款记载结果").Controls("label2").Text = Forms("退款记载结果").Controls("Table1").Table.Compute("sum(F4415)")
加好友 
发短信
Post By：2016/10/18 17:20:00 [只看该作者]
