安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2002-06-21 07:02:00
田野-Office交流网
原创
1996

Access窗体实现多条件复合式的查询

它是我做的毕业设计软件中的一部分,看到有人要,就给分离出来做成范例了

多条件复合式查询源码下载  文件下载


竹笛
很不错喔!

田野
谢谢大家!

janney0
做得不错!

zglsky在 2002/07/04 23:59:00 回复-------------------
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 如果我不想他显示在列表框中想用一个新窗体显示应该如何改?

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

(界面_窗体_子窗体-相关文章技巧链接):
ACCESS-VBA编程 第六章 ACCESS查询1
ACCESS-VBA编程 第六章 ACCESS 查询2


分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.2
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
12011期36选7开奖结果 广西快乐10分开奖查询 沉默的武士送彩金 胡来麻将猜猜乐 丛林巫师返水 巴拉吉专用银弹 美丽骷髅游戏 星际争霸战APP 广东快乐十分计划数据 挑战者游戏韩国电影在线.