Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Pie
Dim zts() As String = {"已完成(延期)","已完成(如期)","进行中(延期)","进行中(将延)","进行中(如期)","无排程"}
Dim dr As DataRow
For ri As Integer = 5 To 0 Step - 1 ' In drs
dr = DataTables(e.Form.name & "_Table1").find("事项状态 = '" & zts(ri) & "'")
If dr IsNot Nothing Then
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = zts(ri) '设置图系的标题
Series.Length = 1 ' t.Rows.Count '设置图系的长度
Series.X(0) = ri '指定水平坐标
Series.Y(0) = DataTables(e.Form.name & "_Table1").Compute("count(事项状态)","事项状态 = '" & zts(ri) & "'")
If zts(ri) = "进行中(延期)" Then
Chart.SeriesList(ri).FillColor = Color.FromARGB(255,160,155)
ElseIf zts(ri) = "已完成(延期)" Then
Chart.SeriesList(ri).FillColor = Color.FromARGB(252,184,240)
ElseIf zts(ri) = "进行中(将延)" Then
Chart.SeriesList(ri).FillColor = Color.FromARGB(255,255,153)
ElseIf zts(ri) = "进行中(如期)"
Chart.SeriesList(ri).FillColor = Color.FromARGB(204,255,204)
ElseIf zts(ri) = "已完成(如期)" Then
Chart.SeriesList(ri).FillColor = Color.FromARGB(176,241,143)
ElseIf zts(ri) = "无排程" Then
Chart.SeriesList(ri).FillColor = Color.Gray
End If
Chart.BarClusterWidth = 80
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.AxisX.AnnoRotation = - 45
Series.DataLabelText = "{#YVAL}"
End If
Next
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
加好友 
发短信
Post By：2025/3/31 10:35:00 [只看该作者]
此主题相关图片如下：123.png