'-----------------------生成库存图表-------------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("资材信息表") '定义一个变量t引用数据表
Chart = e.Form.Controls("库存统计") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
dim ps() as string = t.datatable.getvalues("备件分类",t.filter)
Series.Length = ps.length '设置图系的长度
For i As integer = 0 to ps.length - 1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = t.datatable.compute("sum(数量)",IIF(t.filter > "",t.filter & " and ","") & "备件分类 = '" & ps(i) & "'") '指定垂直坐标
Chart.AxisX.SetValueLabel(i, ps(i)) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
[此贴子已经被作者于2023/11/8 15:02:41编辑过]
加好友 
发短信
Post By：2023/11/8 15:02:00 [只看该作者]
