老师,我遇到一个问题:
此主题相关图片如下:1.png
1、如果是超级管理的话,这个图是全辖的图,
绥德是榆林下属单位,希望,把榆林的人数+它所有的下属单位的人数的和作为一根柱子
2、效果就是
西安- 榆林-汉中----
榆林的人数=它的人数+它下属单位人数
汉中的人数=它的人数+Ta下属单位人数
。。。。。
''图表1
'生成各单位人数临时表
Dim b As New GroupTableBuilder("人数统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
t=b.Build() '生成统计表
''增加标记列 这个是为了X轴单位按照顺序排列,发现,名称是顺序排列了,数字确对不上
t.DataCols.Add("标记", Gettype(String)) ''增加标记列
For Each r As DataRow In t.DataRows ''对于表中的每一行
r("单位")=r("单位").Replace(" ","")
Dim dr2 As DataRow
dr2 = DataTables("organList").Find("[organName] = '" & r("单位") & "'" ) '否则在单位表查找同名的单位行,将找到的行赋值给变量dr
If dr2 IsNot Nothing Then '如果找到了同名的单位行,也就是dr不是Nothing
r("标记")= dr2("fuZhu")
End If
Next
Tables("人数统计表1").Sort="标记"
'
''生成统计图
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = Tables("人数统计表1").Rows.Count '设置图系的长度
For i As Integer = 0 To Tables("人数统计表1").Rows.Count- 1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = t.DataRows(i)("人数") '指定垂直坐标
Chart.AxisX.SetValueLabel(i, Tables("人数统计表1").Rows(i)("单位")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
''图表效果设置
Series.DataLabelText = "{#YVAL}"
Chart.BarClusterWidth = 20
Chart.AxisX.AnnoRotation = - 20 'X轴标示逆时针旋转45度
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.HeaderFont=fnt
If _UserRole = "超级管理员" Then
Chart.HeaderText=_UserOrgan & "全辖离退休干部人数统计图"
Else
Chart.HeaderText=_UserOrgan & "辖区各单位离退休干部人数统计图"
End If
此主题相关图片如下:1.png
老师,我如何处理上面的表,让绥德县的人数累计到榆林,然后把绥德删除了?
[此贴子已经被作者于2018/9/16 13:11:07编辑过]