Dim Filter As String = "" If e.form.controls("精确搜索").checked Then FIlter="第一例 = '" & e.form.controls("TextBOx1").text & "'" Else If e.form.controls("模糊搜索").checked Then Filter="第一列 like '%" & e.form.controls("TextBOx1").text & "%'" End If Tables("表A").FIlter=Filter
加好友 
发短信
Post By：2014/9/12 9:23:00 [显示全部帖子]
