access vba之子窗体数据筛选

deepfuture

浏览: 4412950 次
性别:
来自: 湛江

最近访客更多访客>>

linxl2011

mars36

jccz_zys

zkm0309

博主相关

博客

微博

相册

留言

关于我

博客专栏

: SQLite源码剖析
浏览量：80136

: WIN32汇编语言学习应用...
浏览量：70360

: 神奇的perl
浏览量：103607

: lucene等搜索引擎解析...
浏览量：286603

: 深入lucene3.5源码...
浏览量：15056

: VB.NET并行与分布式编...
浏览量：67813

: silverlight 5...
浏览量：32293

: 算法下午茶系列
浏览量：46075

文章分类

社区版块

存档分类

博客分类：

access vba开发

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 = strcondition & "名称 like '*" & 名称 & "*'"
  End If
  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 = strcondition & "科室名称 like '*" & 科室名称 & "*'"
  End If
  If Trim(姓名) <> "" Then
     If Trim(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "姓名 like  '*" & 姓名 & "*'"
  End If
   If Trim(地址) <> "" Then
     If Trim(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "地址 like '*" & 地址 & "*'"
  End If
  querycon = strcondition

根据以上代码可制作以下窗体，实现access的多参数查询