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
Forms("退款记载结果").Controls("Table1").Table.filter = filter1 & " [F4415]>0"
Forms("退款记载结果").Controls("label2").Text = Forms("退款记载结果").Controls("Table1").Table.Compute("sum(F4415)")
请问这段代码怎么改使得是从后台（外部数据源）筛选出来的结果？
加好友 
发短信
Post By：2016/10/17 15:07:00 [只看该作者]
