Dim Filter As String
With e.Form.Controls("cmbxm")
If .Value IsNot Nothing Then
Filter = "姓名 = '" & .Value & "'"
End If
End With
With e.Form.Controls("cmbxb")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "性别 = '" & .Value & "'"
End If
End With
With e.Form.Controls("cmbxl")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "学历 = '" & .Value & "'"
End If
End With
With e.Form.Controls("cmbgf")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "购房否 = '" & .Value & "'"
End If
End With
With e.Form.Controls("cmbgc")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "购车否 = '" & .Value & "'"
End If
End With
If e.Form.Controls("rdos").Checked = True ' 如果付款状态选择了"已付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否模特 = True"
End If
If e.Form.Controls("rdof").Checked = True ' 如果付款状态选择了"未付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否模特 = False Or 是否模特 Is Null"
End If
If e.Form.Controls("rdotz").Checked = True ' 如果付款状态选择了"已付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否体验团 = True"
End If
If e.Form.Controls("rdotzf").Checked = True ' 如果付款状态选择了"未付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "是否体验团 = False Or 是否体验团 Is Null"
End If
If Filter > "" Then
Tables("读者数据库").Filter = Filter
加好友 
发短信
Post By：2013/5/2 22:18:00 [显示全部帖子]
