查询求助！！！[已解决]

tsweiwei

以下是我做的查询窗口，谁能帮忙把下图中红色方框内的“开滦”、“唐钢”、“新区”、“上会”这4个是/否条件的项目也做成查询条件，其他的我都弄好了！




这是我的主程序：





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

todaynew

是否可以将红色区域放入选项组中，然后结合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

请学习发帖规则
http://www.office-cn.net/vvb/thread-56333-1-1.html

tanhong

按你的想法，加了代码，不知道是否符合你的要求

样本实例：

tanhong

重新更新后的实例：



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