帮忙看一下下面代码哪里出错了
Dim aa As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim Filter As String
Dim Ast() As String = {"订车单位","派车单位"}
For Each a As String In Ast
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " Or "
End If
Filter = Filter & "[" & a & "] Like '%" & aa.value & "%'"
Next
With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "[订车单位] Like '%" & .Value & "%'" And "[派车单位] Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "实际用车日期_起 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "实际用车日期_起 <= #" & .Value & "#"
End If
End With
If e.Form.Controls("已付款").Checked = True ' 如果付款状态选择了"已付"
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "派车单位结算_租金结算 = True"
End If
If e.Form.Controls("未付款").Checked = True ' 如果付款状态选择了"未付"
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "派车单位结算_租金结算 = False Or 派车单位结算_租金结算 Is Null"
End If
If Filter > "" Then
Tables("用车明细表").Filter = Filter
End If
加好友 
发短信
Post By：2018/8/13 14:45:00 [只看该作者]
