以下内容为程序代码:
1 Forms("退款记载结果").Open
2 Dim filter1 As String = ""
3
4 With e.Form.Controls("combobox1")
5 If .Value IsNot Nothing Then
6 filter1 = "[F5319]Like '*" & .Value & "*'"
7 End If
8 End With
9 With e.Form.Controls("TextBox1")
10 If .Value IsNot Nothing Then
11 If filter1 > "" Then
12 filter1 = filter1 & " And "
13 End If
14 filter1 = filter1 & "[F4384]Like '*" & .Value & "*'"
15 End If
16 End With
17 With e.Form.Controls("TextBox2")
18 If .Value IsNot Nothing Then
19 If filter1 >"" Then
20 filter1 = filter1 & " And "
21 End If
22 filter1 = filter1 & "[F4387] Like '*" & .Value & "*'"
23 End If
24 End With
25 With e.Form.Controls("TextBox3")
26 If .Value IsNot Nothing Then
27 If filter1 >"" Then
28 filter1 = filter1 & " And "
29 End If
30 filter1 = filter1 & "[F4419]Like '*" & .Value & "*'"
31 End If
32 End With
33
34 Dim cal1 As WinForm.DateTimePicker = e.Form.Controls("datetimepicker1")
35 Dim cal2 As WinForm.DateTimePicker = e.Form.Controls("datetimepicker2")
36 If cal1.value IsNot Nothing And cal2.value IsNot Nothing Then
37 If filter1 > "" Then
38 filter1 = filter1 & " and"
39 End If
40 filter1 = filter1 & "[T246CT] >= '" & cal1.value & " ' and [T246CT] <= ' " & cal2.value & "'"
41 End If
42 If filter1 > "" Then
43 filter1 = filter1 & " and"
44 End If
45 Forms("退款记载结果").Controls("Table1").Table.filter = filter1 & " [F4415]>0"
46 Forms("退款记载结果").Controls("label2").Text = Forms("退款记载结果").Controls("Table1").Table.Compute("sum(F4415)")