主题：[求助]

分开写不就可以了？如果有问题，做个具体例子发上来测试。

If e.Form.Controls("rdoYifu").Checked = True
    Dim  t = Tables("人员")
    Dim Filter As String = ""
    With e.Form.Controls("cmbProduct")
        If .Value IsNot Nothing Then
            Filter = "产品 = '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("cmbCustomer")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "客户 = '" & .Value & "'"
        End If
    End With
    t.Filter = Filter
ElseIf e.Form.Controls("rdoWeifu").Checked = True
    Dim  t = Tables("物资")
    Dim Filter As String = ""
    With e.Form.Controls("cmbProduct")
        If .Value IsNot Nothing Then
            Filter = "产品 = '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("cmbCustomer")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "客户 = '" & .Value & "'"
        End If
    End With
    t.Filter = Filter   
End If

做一个窗口【窗口2】，放入一个table控件【Table1】，然后改代码。

If e.Form.Controls("人员").Checked = True
    Forms("窗口2").Show
    Dim t = Forms("窗口2").Controls("Table1").Table
    t.DataSource = DataTables("人员")
    Dim Filter As String = ""
    With e.Form.Controls("ComboBox1")
        If .Value IsNot Nothing Then
            Filter = "name= '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("ComboBox2")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "bh= '" & .Value & "'"
        End If
    End With
    t.Filter = Filter

 你为什么要给窗口的table增加列？

 只能用代码增加 http://www.foxtable.com/webhelp/scr/1428.htm

If e.Form.Controls("人员").Checked = True
   Forms("搜索结果").Show
    Dim t = Forms("搜索结果").Controls("Table1").Table
    t.DataSource = DataTables("人员")
    Dim Filter As String = ""
    With e.Form.Controls("ComboBox1")
        If .Value IsNot Nothing Then
            Filter = "name= '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("ComboBox2")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "bh= '" & .Value & "'"
        End If
    End With
    t.Filter = Filter
ElseIf e.Form.Controls("物资").Checked = True
    Forms("搜索结果").Show
    Dim t = Forms("搜索结果").Controls("Table1").Table
    t.DataSource = DataTables("物资")
    Dim Filter As String = ""
    With e.Form.Controls("ComboBox1")
        If .Value IsNot Nothing Then
            Filter = "wzmc= '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("ComboBox2")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "bh= '" & .Value & "'"
        End If
    End With
    t.Filter = Filter   
End If

 回复11楼，参考 http://www.foxtable.com/webhelp/scr/1058.htm