希望X轴是最近12个月的月份，文本为年月，如本月2015-09，上月2015-08
Y轴是对应月的耗时
Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim tjcz As WinForm.DropDownBox = e.Form.Controls("机器号")
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim nym As new Date=Date.Today(y,m)
Dim tbl As DataTable = DataTables("停机处置")
Dim lst As List(Of String) = tbl.GetValues("机器号","机器号= '" & tjcz.text & "' And [耗时]> 0" )
Chart = e.Form.Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() '
Series = Chart.SeriesList.Add()
Series.Length = 12
For i As Integer = m To m-11
Series.X(i) = i
Series.Y(i) = tbl.Compute("Avg(耗时)","[机器号] = '" & lst(i) & "' and 机器号= '" & tjcz.text & "' And [耗时]> 0")
Chart.AxisX.SetValueLabel(i, lst(i))
Next
加好友 
发短信
Post By：2015/9/5 10:34:00 [显示全部帖子]
