以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]合并按钮功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1036)

--  作者:易服
--  发布时间:2008/11/1 9:14:00
--  [求助]合并按钮功能
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:退耕还林管理系统.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报表,在数据表中增加许多表达式列过渡,然后用按钮分组统计生成临时表,又在临时工表上建立报表。这个过程显得太烦琐不如易表来得直接,有没有更好的办法?请做个实例来参照。

--  作者:易服
--  发布时间:2008/11/2 13:49:00
--  
真没办法?提个思路也好嘛
--  作者:gdtgl
--  发布时间:2008/11/2 14:10:00
--  
二、问题应只是加条件判断(楼主的管理系统估计基本完成,代码是现成的):
1 if 组合框全为空 then
     代码
  elseif 年度=..... then
    代码
  elseif ............ then
    代码
  else 
   .....
  end if
 
三、应也是同理。 
--  作者:易服
--  发布时间:2008/11/2 14:31:00
--  

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


--  作者:lxl
--  发布时间:2008/11/2 15:17:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:退耕还林管理系统.rar

这是第一个问题
第1个图表是你原来的代码
第2个图表没用统计表,稍微改了一下
就能合并了


--  作者:易服
--  发布时间:2008/11/2 15:23:00
--  

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


--  作者:lxl
--  发布时间:2008/11/2 15:52:00
--  
以下是引用易服在2008-11-2 15:23:00的发言:

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



我5楼说的都是第一个问题.
第二个问题,我还要问你下:
如果跳着选,例如选择年度、造林类别、林种 怎么筛选?

[此贴子已经被作者于2008-11-2 15:52:44编辑过]

--  作者:易服
--  发布时间:2008/11/2 15:56:00
--  

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

[此贴子已经被作者于2008-11-2 16:02:31编辑过]

--  作者:易服
--  发布时间:2008/11/2 16:12:00
--  
  1、不选任何条件(组合框全为空)时统计各乡镇(列出乡名)各年度的合计值(不列出年度)
   2、选择某个年度后列出该年度各乡镇的统计值
   3、选择某个年度某个乡镇后列出该年度该乡镇各村的统计值(列出村名)
   4、不选取年度选某个乡镇后列出所有年度该乡镇各村的统计值(列出村名)
   5、选择某个年度某个乡镇某个村列出该年度该乡镇该村的统计值
   6、不选年度选取某个乡镇某个村列出所有年度该乡镇该村的统计值
--  作者:lxl
--  发布时间:2008/11/2 16:25:00
--  

是这个意思吧:
先根据组合框的内容进行筛选。再进行分组统计。

你有一点没指明,就是筛选之后的分组项:
比如不进行筛选(组合框都为空),分组列可以是“年度”,也可以是“乡名”,也可以是“年度”,“乡名”,还可以是别的很多情况    (你一楼的要求是分组列是“乡名”)
比如筛选出了2007年的所有记录之后,分组列可以是“村名”, 也可以是“村名”“乡名”,也可以是“村名”“乡名”,“造林类别” (你一楼的要求是分组列还是“乡名”)
比如筛选出2007年猫儿乡的记录,分组列也有好多情况。(你一楼要求的分组列是“村名”)
只举了3个例子,所以看不出你的分组规律。