|
Dim Filter As String
If e.Form.Controls("TextBox1").Value > "" Then
Filter = "颜色 = '" & e.Form.Controls("TextBox1").Value & "'"
End If
If e.Form.Controls("TextBox2").Value > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = "用户 = '" & e.Form.Controls("TextBox2").Value & "'"
End If
If Tables("表A").Filter > "" Then
Filter = Filter & " And " & Tables("表A").Filter
End If
Tables("表A").Filter = Filter
| 
加好友 
发短信
Post By：2011/5/10 8:32:00 [只看该作者]
