此主题相关图片如下：2.png
Dim g2 As New GroupTableBuilder("斩价", DataTables("报价明细"))
g2.Groups.AddDef("客户")
g2.Totals.AddDef("斩价", AggregateEnum.Average)
g2.FromServer = True
g2.Build()
MainTable = Tables("斩价")
Dim Chart2 As WinForm.Chart '定义一个图表变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t2 As Table = Tables("斩价") '定义一个变量t引用数据表
Chart2= e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart2.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart2.SeriesList.Clear() '清除图表原来的图系
Series2 = Chart2.SeriesList.Add() '增加一个图系
Series2.Length = t2.Rows.Count '设置图系的长度
For i2 As Integer = 0 To t2.Rows.Count - 1 '指定每个数据点的位置
Series2.X(i2) = i2 '指定水平坐标
Series2.Y(i2) = t2.Rows(i2)("斩价") '指定垂直坐标
Chart2.AxisX.SetValueLabel(i2, t2.Rows(i2)("客户")) '指定字符表示
Next
Chart2.AxisX.AnnoWithLabels = True '启用字符标示
加好友 
发短信
Post By：2020/4/18 20:32:00 [只看该作者]
