[原创]Access窗体多条件复合查询[源码]

引用 ganrong 2002-6-18 20:56

Good

引用 竹笛 2002-6-19 03:37

很不错喔！

引用 田野 2002-6-20 11:25

谢谢大家！

[此贴子已经被作者于2002-6-20 3:24:30编辑过]

引用 baw009 2002-7-2 16:21

怎么文件打不开呢？为什么

引用 janney0 2002-7-3 02:49

做得不错！

引用 zglsky 2002-7-4 23:59

firstcriterion = True
str2 = "SELECT qry入库明细.凭证号, qry入库明细.物料编号, qry入库明细.物料名称, qry入库明细.型号规格, qry入库明细.单价, qry入库明细.数量, qry入库明细.单位, qry入库明细.总价, qry入库明细.入库日期, qry入库明细.仓库,  qry入库明细.供应商 FROM qry入库明细"
If Not IsNull(凭证号) Then
    str2 = str2 & " where 凭证号 like '*" & 凭证号 & "*'"
    firstcriterion = False
End If
    If IsNull(开始日期) And IsNull(结束日期) Then
GoTo jump1
  Else
     If firstcriterion Then
         str2 = str2 & " where 入库日期 between #" & 开始日期 & "# and #" & 结束日期 & "#"
         firstcriterion = False
     Else
        str2 = str2 & " and 入库日期 between #" & 开始日期 & "# and #" & 结束日期 & "#"
    End If
    End If
jump1:


jump2:
      MsgBox str2
      List3.RowSource = str2

str2、jump1 如果我不想他显示在列表框中想用一个新窗体显示应该如何改？

引用 田野 2002-7-20 04:09

我想指定窗体的数据源应该可以.我现在南京工作,系统集成方面的,正在找房子,比较忙,你自己试一试吧

查看全部评论(7)