Dim 数据源名 As String = "dyxx" '数据源名(空白时为内数据表)
Dim sql分组统计生成器 As New SQLGroupTableBuilder("党员信息表", "党员信息表")
sql分组统计生成器.ConnectionName = 数据源名
sql分组统计生成器.Groups.AddExp("所属党组织", "trim(所属党组织)")
sql分组统计生成器.Groups.AddDef("性别")
sql分组统计生成器.Totals.AddExp("数量", "1") '根据日期按年分组
sql分组统计生成器.GrandProportion = True
Dim 临时表 As DataTable = sql分组统计生成器.Build(True)
Forms("testt").close
Forms("testt").Open
Dim 图表 As WinForm.Chart = Forms("testt").Controls("Chart1")
图表.SeriesList.Clear()
图表.ChartType = ChartTypeEnum.Pie
Dim 图系 As WinForm.ChartSeries
图表.VisualEffect = True
For Each 行 As DataRow In 临时表.dataRows
图系 = 图表.SeriesList.Add() '增加一个图系
图系.Length = 1
图系.Text = 行("所属党组织") & " " & 行("性别") & " " & 行("数量")
图系.Y(0) = 行("数量")
图系.DataLabelText = 行("所属党组织") & vbCrLf & 行("性别") & vbCrLf & Round2(行("数量gdr") * 100 , 2) & "%"
Next
图表.LegendVisible = True
图表.LegendCompass = CompassEnum.East
加好友 
发短信
Post By：2024/9/10 16:40:00 [显示全部帖子]
