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 mms() As Integer ={1,2,3,4,5,6,7,8,9,10,11,12}
Dim mms2 As new List(Of String)
For i1 As Integer = m To mms.Length - 1
mms2.Add(CStr(y-1) & "-" & mms(i1))
Next
For i2 As Integer = 0 To m-1
mms2.Add( y & "-" & mms(i2))
Next
'--------------
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 = 0 To mms2.Count- 1
Series.X(i) = i
Series.Y(i) = tbl.Compute("Avg(耗时)","[机器号] = '" & lst(i) & "' and 机器号= '" & tjcz.text & "' And [耗时]> 0")
Chart.AxisX.SetValueLabel(i, mms2(i))
Next
Chart.AxisX.AnnoWithLabels = True
加好友 
发短信
Post By：2015/9/5 11:46:00 [显示全部帖子]
