在窗体的ComboBox1中的TextChanged事件中，我设置了如下代码：
Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("系统_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "录入部门 Like " & txt
End If
进行筛选不同部门的信息。

我现在多增加了二个日期控件，分别为起始与终止， DateTimePicker1和日期控件 DateTimePicker2，

我需要：“录入部门”、”起始日期“、“终止日期” 这三个条件进行筛选，代码应该如何弄？

多少个条件都可以的：

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

您说的方法很好用，

但我还是想以下方式进行筛选：

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("系统_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "录入部门 Like " & txt
End If
麻烦你帮忙修改一下，以上代码，让条件“录入日期”大于或者等于。。。     来进行筛选

Select Case e.DataCol.Name
    Case "产品","入库","出库"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = \'" & mr("产品") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then \'如果没有上一行,说明本行就是同产品的第一行
            mr("库存") = mr("入库") - mr("出库")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
            drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
        Next
End Select

这个代码在执行时为什么有错误提示

高手指导一下