Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 人事应用

根据条件动态显示图表的一个实例

时 间:2011-06-30 10:51:30
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:论坛网友需要根据城市来动态显示工作人员的工作年限,进行了详细思路说明。
正 文:

案例背景:论坛网友需要根据城市来动态显示工作人员的工作年限,用了一个主窗体和一个子窗体
主窗体名称:从事信息化岗位人员_地市查询窗口
子窗体名称:从事信息岗人员_按地市查询_按岗位年限查询子窗体

要点:
      1.建立一个查询:qry地市工作年限
       2.将子窗体上的图表数据源设置为,作用是一打开主窗体时,显示全部人员的工作年限图表:
           Select qry地市工作年限.工作年限, Sum(qry地市工作年限.人数) AS 人数小计 FROM qry地市工作年限 GROUP BY qry地市工作年限.工作年限 orDER BY Sum(qry地市工作年限.人数) DESC;
      3.为方便VBA代码使用,我对以下名称进行了设置:
          1)主窗体上子窗体控件的名称我设置为了:frmCityChild
          2)子窗体上图表控件的名称我设置为了:graphCity
      4.在主窗体所在城市 组合框的更新后事件中,写如下代码,达到根据所选城市来显示相应图表的作用:
Dim strsql As String
    Dim strCity As String
    strCity = Me.所在地市
    strsql = "Select qry地市工作年限.工作年限, Sum(qry地市工作年限.人数) AS 人数小计 " _
           & "FROM qry地市工作年限 " _
           & "Where (((qry地市工作年限.所在地市) = '" & strCity & "')) " _
           & "GROUP BY qry地市工作年限.工作年限;"
    Me.frmCityChild.Form.graphCity.RowSource = strsql

       5.具体示例见论坛帖子:http://www.accessoft.com/bbs/showtopic.asp?id=13075



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助