Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共18 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]合并按钮功能

1楼
易服 发表于: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报表,在数据表中增加许多表达式列过渡,然后用按钮分组统计生成临时表,又在临时工表上建立报表。这个过程显得太烦琐不如易表来得直接,有没有更好的办法?请做个实例来参照。
2楼
易服 发表于:2008/11/2 13:49:00
真没办法?提个思路也好嘛
3楼
gdtgl 发表于:2008/11/2 14:10:00
二、问题应只是加条件判断(楼主的管理系统估计基本完成,代码是现成的):
1 if 组合框全为空 then
     代码
  elseif 年度=..... then
    代码
  elseif ............ then
    代码
  else 
   .....
  end if
 
三、应也是同理。 
4楼
易服 发表于:2008/11/2 14:31:00

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

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

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

6楼
易服 发表于:2008/11/2 15:23:00

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

7楼
lxl 发表于:2008/11/2 15:52:00
以下是引用易服在2008-11-2 15:23:00的发言:

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



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

[此贴子已经被作者于2008-11-2 15:52:44编辑过]
8楼
易服 发表于:2008/11/2 15:56:00

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

[此贴子已经被作者于2008-11-2 16:02:31编辑过]
9楼
易服 发表于:2008/11/2 16:12:00
  1、不选任何条件(组合框全为空)时统计各乡镇(列出乡名)各年度的合计值(不列出年度)
   2、选择某个年度后列出该年度各乡镇的统计值
   3、选择某个年度某个乡镇后列出该年度该乡镇各村的统计值(列出村名)
   4、不选取年度选某个乡镇后列出所有年度该乡镇各村的统计值(列出村名)
   5、选择某个年度某个乡镇某个村列出该年度该乡镇该村的统计值
   6、不选年度选取某个乡镇某个村列出所有年度该乡镇该村的统计值
10楼
lxl 发表于:2008/11/2 16:25:00

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

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


 

共18 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.