Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.ChartType = ChartTypeEnum.Bar
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.VisualEffect = True
Series = Chart.SeriesList.Add()
Series.Length = 12
For i As Integer = 0 To 11
Series.X(i) = i
Dim y As String = CStr(i)
Dim ny As String = nf & y.PadLeft(2,"0")
Dim drgz As DataRow = dtg.SQLFind(FT & "And 年月 = '" & ny & "'")
If drgz IsNot Nothing Then
Series.Y(i) = drgz("实发工资")
Else
Series.Y(i) = 0
End If
Chart.AxisX.SetValueLabel(i,(i+1) & "月")
Next
Series.FillColor= Color.Green
Chart.AxisX.AnnoWithLabels = True
[此贴子已经被作者于2019/8/23 20:10:32编辑过]