主题：查询代码

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("产品")

End If