主题：[求助]合并按钮功能

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林管理系统.rar

此主题相关图片如下：筛选.jpg

    一、按钮“面积分布”、“面积组成”都是图示数据的。能否将两个按钮合并为一个按钮同时显示两个图。
  按钮“面积分布”
  Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open()
  窗口1
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim tbl As DataTable = DataTables("总览") '定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetUniqueValues("", "乡名") '获得产品名称集合
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = lst.Count '设置图系的长度
For i As integer = 0 to lst.Count - 1 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("Sum(设计面积)","[乡名] = '" & lst(i) & "'") '指定垂直坐标
    Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
    Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
   按钮“面积组成”
Dim g As New GroupTableBuilder("统计表1", DataTables("总览"))
g.Groups.AddDef("乡名")
g.Totals.AddDef("退耕地")
g.Totals.AddDef("荒山")
g.Totals.AddDef("生态林")
g.Totals.AddDef("经济林")
g.Build()
Forms("统计图").Open
    二、按钮“分类统计”、“树种统计”、“分乡统计”合并为一个按钮，通过不同的筛选条件达到不同的统计，
   1、不选任何条件（组合框全为空）时统计各乡镇（列出乡名）各年度的合计值（不列出年度）
   2、选择某个年度后列出该年度各乡镇的统计值
   3、选择某个年度某个乡镇后列出该年度该乡镇各村的统计值（列出村名）
   ┅┅┅┅┅┅┅
     三、为了得到不同的excel报表，在数据表中增加许多表达式列过渡，然后用按钮分组统计生成临时表，又在临时工表上建立报表。这个过程显得太烦琐不如易表来得直接，有没有更好的办法？请做个实例来参照。

真没办法？提个思路也好嘛

谢谢回得复！易表是一个按钮完成的，你的建议我慢慢摸索。

考虑一下无从下手，烦请做个实例吧

只要选取造林年度，乡名，村名就够了，选多了麻烦。谢谢你第一个问题圆满解决

  1、不选任何条件（组合框全为空）时统计各乡镇（列出乡名）各年度的合计值（不列出年度）
   2、选择某个年度后列出该年度各乡镇的统计值
   3、选择某个年度某个乡镇后列出该年度该乡镇各村的统计值（列出村名）
   4、不选取年度选某个乡镇后列出所有年度该乡镇各村的统计值（列出村名）
   5、选择某个年度某个乡镇某个村列出该年度该乡镇该村的统计值
   6、不选年度选取某个乡镇某个村列出所有年度该乡镇该村的统计值

先根据组合框的内容进行筛选。再进行分组统计。
比如不进行筛选（组合框都为空），分组列是“乡名”，
比如筛选出了2007年的所有记录之后，分组列是“村名”“乡名”，
不要考虑造林类别和林种，请先做个例子出来
   1、不选任何条件（组合框全为空）时统计各乡镇（列出乡名）各年度的合计值（不列出年度）分组列是“村名”“乡名”，
   2、选择某个年度后列出该年度各乡镇的统计值。分组列是“乡名”，
   3、选择某个年度某个乡镇后列出该年度该乡镇各村的统计值（列出村名）分组列是“村名”
   4、不选取年度选某个乡镇后列出所有年度该乡镇各村的统计值（列出村名）分组列是“村名”“乡名”，
   5、选择某个年度某个乡镇某个村列出该年度该乡镇该村的统计值分组列是“村名”

   6、不选年度度选取某个乡镇某个村列出所有年度该乡镇该村的统计值，分组列是“村名”

非常感谢，太有创意！

谢谢回复！12楼的很好，你的还达不到目的，可在12楼的基础上进一步优化。