主题：[求助]如何动态生成过滤条件?

这个意思？

Dim nd As WinForm.ComboBox = e.Form.Controls("年度")
Dim yf As WinForm.ComboBox = e.Form.Controls("月份")
'Dim xhgg As WinForm.ComboBox = e.Form.Controls("姓名")
yf.ComboList = DataTables("值班排序表").GetComboListString("月份","年度 = '" & nd.text & "'","月份")
Dim filter As String = "1=1"
If nd.Text > "" Then
    filter &= " and 年度 = '" & nd.text & "'"
End If
If yf.Text > "" Then
    filter &= " and 月份 like '*" & yf.text & "*'"
End If

Tables("值班排序表").Filter = filter

http://www.foxtable.com/help/topics/1058.htm