|
Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim t As DataTable = DataTables("表A")
Dim lst As List(Of String) = t.GetValues("申请部门")
Chart = Forms("报表").Controls("Chart6")
Chart.ChartType = ChartTypeEnum.bar
Chart.SeriesList.Clear()
Chart.AxisX.ClearValueLabel
For Each bm As String In lst
Series = Chart.SeriesList.Add()
Series.Length = 12
series.Text = bm
Dim td As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
For i As Integer = 0 To 11
Dim d = td.AddMonths(-i)
Series.X(i) = i
Series.Y(i) = val(t.Compute("count(" & "申请部门" & ")", "申请日期 >= #" & d & "# and 申请日期 < #" & d.AddMonths(1) & "# and 申请部门 = '" & bm & "'"))
Chart.AxisX.SetValueLabel(i, Format(d, "yyyy-MM"))
Series.DataLabelText = "{#YVAL}"
Series.MarkShape = MarkShapeEnum.None
Series.MarkSize=3
Series.LineThickNess=0.5
Next
Next
|
加好友 
发短信
Post By：2015/9/13 14:39:00 [显示全部帖子]
