参考:http://www.foxtable.com/webhelp/topics/1058.htm,更改取值的地方即可
Dim Filter As String
With RibbonTabs("功能区1").Groups("功能组1").Items("文本框1")
If .text > "" Then
Filter = "车号 = '" & .text & "'"
End If
End With
With RibbonTabs("功能区1").Groups("功能组1").Items("日期输入框1")
If .value <> Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "调度日期 >= #" & .value & "#"
End If
End With
If Filter > "" Then
Tables("表A").Filter = Filter
End If