Dim b As New SQLgroupTableBuilder("采购业务分析", "采购业务")
b.Groups.AddDef("所属单位")
b.Groups.Adddef("产品年份")
b.Groups.AddExp("年份季节","[产品年份] & [产品季节]")
b.Totals.AddDef("采购数量")
b.Totals.AddDef("采购金额")
b.GrandProportion = True
b.SamePeriodGrowth = True
b.Decimals = 2 '小数点取0位
b.Build()
Dim t As Table = Tables("采购业务分析")
DataTables("采购业务分析").dataCols.add("采购单价", Gettype(Double))
t.DataTable.DataCols("采购单价").SetFormat("0.0")
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r("采购数量") = 0 Or r("采购数量") Is Nothing Then
r("采购单价") = 0
Else
r("采购单价") = format(r("采购金额")/r("采购数量"), "0.00")
End If
Next
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t1 As Table = Tables("采购业务分析") '定义一个变量t引用数据表
Chart = e.Form.Controls("采购") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表1类型该为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t1.Rows.Count '图系的数据点数等于表的行数
For i As Integer = 0 To t1.Rows.Count - 1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = t1.Rows(i)("采购单价") '指定垂直坐标
Chart.AxisX.SetValueLabel(i, t1.Rows(i)("年份季节")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示