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

时　间: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