Office中国论坛/Access中国论坛

标题: 查询求助！！！[已解决] [打印本页]

作者: tsweiwei 时间: 2009-1-10 10:10
标题: 查询求助！！！[已解决]
以下是我做的查询窗口，谁能帮忙把下图中红色方框内的“开滦”、“唐钢”、“新区”、“上会”这4个是/否条件的项目也做成查询条件，其他的我都弄好了！

[attach]34420[/attach]

这是我的主程序：

[attach]34417[/attach]
[attach]34418[/attach]
[attach]34419[/attach]

[ 本帖最后由 tsweiwei 于 2009-1-11 22:39 编辑 ]

作者: todaynew 时间: 2009-1-10 10:19
是否可以将红色区域放入选项组中，然后结合select  case....case.....end select处理?

例如:

dim sql as string
Select  case  Frame0
         case  Frame0=1
                  sql="select * from 表 where 项目管辖='上会'"
                  me.子窗体控件名称.from.RecordSource=sql
         case  Frame0=2
                  sql="select * from 表 where 项目管辖='开滦'"
                  me.子窗体控件名称.from.RecordSource=sql
         case  Frame0=3
                  sql="select * from 表 where 项目管辖='唐钢'"
                  me.子窗体控件名称.from.RecordSource=sql
         case  Frame0=4
                  sql="select * from 表 where 项目管辖='新区'"
                  me.子窗体控件名称.from.RecordSource=sql
End Select
me.子窗体控件名称.from.Requery
Frame0=null

[ 本帖最后由 todaynew 于 2009-1-10 10:41 编辑 ]

作者: Grant 时间: 2009-1-10 11:31
请学习发帖规则
http://www.office-cn.net/vvb/thread-56333-1-1.html

作者: tanhong 时间: 2009-1-11 01:17
按你的想法，加了代码，不知道是否符合你的要求

样本实例：[attach]34433[/attach]

作者: tanhong 时间: 2009-1-11 22:09
重新更新后的实例：

[attach]34460[/attach]

[ 本帖最后由 tanhong 于 2009-1-11 22:11 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)