Private Sub query_btn_Click()
querycondition = querycon()
queryresult.Form.FilterOn = False
queryresult.Requery
If Trim(querycondition) <> "" Then
queryresult.Form.Filter = querycondition
queryresult.Form.FilterOn = True
End If
End Sub
其中querycon用于生成查询(筛选)条件,并返回
queryresult.Form.FilterOn表示筛选器的开关
queryresult.Form.Filter表示筛选器的条件
querycon的大致语句如下:
strcondition = ""
If Trim(序号) <> "" Then
If Trim(strcondition) <> "" Then
strcondition = strcondition & " and "
End If
strcondition = strcondition & "序号=" & 序号
End If
If Trim(名称) <> "" Then
If Trim(strcondition) <> "" Then
strcondition = strcondition & " and "
End If
strcondition