Dim Filter As String
With e.Form.Controls("ssjl")
If .Value IsNot Nothing Then
Filter = "教练姓名 Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("kclx")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "私教类型 Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("xydh")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "手机号码 Like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("xyxm")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "学员姓名 Like '%" & .Value & "%'"
End If
End With
Tables("会员信息表").Filter = Filter
加好友 
发短信
Post By：2014/9/26 11:55:00 [显示全部帖子]
