e.Form.Controls("TextBox1").text=year(Date.Today)
e.Form.Controls("TextBox2").text=Month(Date.Today)
Dim tB As Table = Tables("日产量分析_table2")
If Forms("日产量分析").Opened()
tB.Fill(" select A.MakeGro as 班组, Sum( isnull(C.Qty,0)) as 数量 f rom PQ_Convert_Main d left join PQ_Convert_List C ON d.ID=C.UpID left join PQ_Main A on c.Orderno=a.OrderNo left join bai_ftyno E ON a.ftyno=e.ftyno where ArtGD='车间转QC' and DATEPART(year,d.Workdate)=(select year(GETDATE())) and DATEPART(month,d.Workdate)=(select MONTH(GETDATE()) ) and A.MakeGro is not null group by A.MakeGro order by A.MakeGro " , "鼎邦系统",True)
Tables("日产量分析_Table3").Fill("Select A.班组 as 班组,A.数量 as 数量,B.计划产量 as 计划产量 F rom {日产量分析_table2} A left join {班组月计划产量} B on A.班组=B.班组 order by A.班组",True)
End If
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 = "日产量分析_table2" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "数量"
Series.X.DataField = "班组" 'X轴绑定到产品列
Series.Y.DataField = "数量" 'Y轴绑定到数量列
' Series = Chart.SeriesList.Add() '增加第二个图系
' Series.Text = "金额"
' Series.X.DataField = "产品" 'X轴绑定到产品列
' Series.Y.DataField = "金额" 'Y轴绑定到数量列
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方
加好友 
发短信
Post By：2018/7/7 14:41:00 [显示全部帖子]
此主题相关图片如下：111.png
