If Forms("流水线生产进度").Opened Then
Tables("流水线生产进度_Table1").Fill(" select 款号,颜色,尺码,工序号,工序名,SUM(件数) as 件数,订单号,制单号,客款号,货品名,系列 F ROM [xsc_erp].[dbo].[派发工序表] where 单据状态 = '已完成' group by 订单号,制单号,款号,客款号,货品名,系列,颜色,尺码,工序号,工序名 order by 工序号","xsc_erp",True)
End If
DataTables("流水线生产进度_Table1").Load()
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "流水线生产进度_Table1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "工序完成情况"
Series.X.DataField = "工序名" 'X轴绑定到产品列
Series.Y.DataField = "件数" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方
加好友 
发短信
Post By：2019/8/16 17:35:00 [只看该作者]
