各位大师：想在窗口中设置4个控件，textbox1-textbox4.和一个绑定的副表，当在TEXTBOX1中输入完毕后自动查找并显示在窗口副表中，在TEXTBOX2中输入完毕后自动加上TEXTBOX1的条件进行筛选并显示在窗口的副表中，一直到TEXTBOX4输入并查找完毕，每个TEXTBOX的LEAVE代码怎么写，请指教.

谢谢！查询问题已解决，但这结果在表上，窗口绑定的副表不显示查询结果。继续求助

Dim tbl As Table = Tables("窗口6_Table1")
Dim Filter   As   String
 With e.Form.Controls("TextBox1")
       If .Value   IsNot   Nothing  Then
         tbl.Filter =   "年度 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("TextBox2")
       If .Value   IsNot   Nothing   Then
           If tbl.Filter > ""   Then
             tbl.Filter = Filter &   " And "
           End   If
         tbl.Filter = Filter &   "月份 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("TextBox3")
       If .Value   IsNot   Nothing   Then
           If tbl.Filter >""   Then
             tbl.Filter = Filter &   " And "
           End   If
         tbl.Filter = Filter &   "日期 = \'" & .Value &   "\'"
       End   If
 End   With
With e.Form.Controls("ComboBox1")
       If .Value   IsNot   Nothing   Then
           If tbl.Filter >""   Then
             tbl.Filter = Filter &   " And "
           End   If
         tbl.Filter = Filter &   "检验区分= \'" & .Value &   "\'"
       End   If
 End   With
With e.Form.Controls("ComboBox2")
       If .Value   IsNot   Nothing   Then
           If tbl.Filter >""   Then
             tbl.Filter = Filter &   " And "
           End   If
         tbl.Filter = Filter &   "班组长= \'" & .Value &   "\'"
       End   If
 End   With
 If   tbl.Filter >   "" Then
     Tables("制造质量管理").Filter =   Filter
 End If

代码改成这样，可以在窗口绑定的副表中显示单个的查询结果，有两个条件输入时，便提示语法错误：语法错误:“And”运算符前缺少操作数。

请高手指点！

Dim tbl As Table = Tables("窗口6_Table1")
Dim Filter   As   String
 With e.Form.Controls("TextBox1")
       If .Value   IsNot   Nothing  Then
           If Filter  > ""   Then
             Filter = Filter &   " And "
           End   If
         Filter  =   "年度 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("TextBox2")
       If .Value   IsNot   Nothing   Then
           If Filter  > ""   Then
             Filter  = Filter &   " And "
           End   If
         Filter = Filter &   "月份 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("TextBox3")
       If .Value   IsNot   Nothing   Then
           If Filter  > ""   Then
             Filter  = Filter &   " And "
           End   If
         Filter = Filter &   "日期 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("ComboBox1")
       If .Value   IsNot   Nothing   Then
           If Filter  > ""   Then
             Filter  = Filter &   " And "
           End   If
         Filter = Filter &   "检验区分 = \'" & .Value &   "\'"
       End   If
 End   With
 With e.Form.Controls("ComboBox1")
       If .Value   IsNot   Nothing   Then
           If Filter  > ""   Then
             Filter  = Filter &   " And "
           End   If
         Filter = Filter &   "班组长 = \'" & .Value &   "\'"
       End   If
 End   With
If   Filter >   "" Then
    tbl.Filter =   Filter
     Tables("制造质量管理").Filter =   Filter
 End If

谢谢，按照楼上的改完，达到预想，但是我加了两行命令，筛选检验区分及班组长条件时，系统不报错，但是无筛选数据。检验区分及班组长是字符型的，请老师指教！