有点甜老师已经按照下面代码实现如图效果Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"),"订单门店='艾依格店'")
dtb.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '添加日期列用于分组,并用"年"代替原名称
dtb.Groups.AddDef("订单日期","月")
dtb.Groups.AddDef("订单门店")
dtb.Totals.AddDef("发货价","投入")
dtb.Totals.AddDef("总额","产出")
dtb.Totals.AddDef("利润")
dtb.Subtotal=True
dtb.SamePeriodGrowth=True
dtb.VerticalTotal=True
dtb.GrandProportion=True
dtb.GroupProportion=True
dtb.CircleGrowth=True
dtb.Build()
Dim 变量名 As WinForm.Table = e.Form.Controls("Table1")
变量名.Table.DataSource = dtb.BuildDataSource()
变量名.Table.AutoSizeCols()
此主题相关图片如下：111.png
现在怎么生成如下图图标呢？
此主题相关图片如下：112.png
下面的原来的代码
Dim g As new GroupTableBuilder("统计表1",DataTables("投入产出"))
g.Groups.AddDef("月份")
g.Totals.AddDef("投入")
g.Totals.AddDef("产出")
g.Totals.AddDef("利润")
g.filter = "门店名称 = '艾依格店'"
Dim dt As DataTable = g.Build(True)
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart3") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Dim cls() As String = {"投入","产出","利润"}
For Each c As String In cls
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = c '设置图系的标题
Series.Length = 13 '设置图系的长度
For r As Integer = 0 To 12
Series.X(r) = r
Series.Y(r) = 0
Next
For i As Integer = 0 To dt.dataRows.Count - 1
Series.Y(dt.dataRows(i)("月份")) = dt.dataRows(i)(c)
Next
Series.DataLabelText = c & "{#YVAL}"
Series.DataLabelConnected=True
Series.TooltipText = "艾依格店" & c & "{#XVAL}月, {#YVAL}元"
Next
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
麻烦修正一下 谢谢！
加好友 
发短信
Post By：2017/12/8 11:49:00 [只看该作者]
