Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
'Dim drs As List(Of DataRow)
'drs = DataTables(e.Form.name & "_Table1").Select("[辅助列] < 10","辅助列 DESC")
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear() '清除图表原来的图系
' If drs.count > 0 Then
' Chart.VisualEffect = True
Dim rb2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rb2.Checked = True Then
Chart.ChartType = ChartTypeEnum.Bar
'Series = Chart.SeriesList.Add()
'Series.Length = 5
Dim sp4 As WinForm.SplitContainer = e.Form.Controls("SplitContainer4")
sp4.Panel1.Collapsed = True
Else
Chart.ChartType = ChartTypeEnum.Pie
End If
Dim zts() As String = {"已完成(延期)","已完成(如期)","进行中(延期)","进行中(将延)","进行中(如期)"}
For ri As Integer = 0 To 4 ' In drs
If rb2.Checked = True Then
'For Each c As Col In t.Cols
'If c.Name <> "产品" Then
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = zts(ri) '设置图系的标题
Series.Length = 1 ' t.Rows.Count '设置图系的长度
'For r As Integer = 0 To t.Rows.Count - 1
'Series.X(r) = r
'Series.Y(r) = t.Rows(r)(c.Name)
'Next
'End If
'Next
Series.X(0) = ri '指定水平坐标
Series.Y(0) = DataTables(e.Form.name & "_Table1").Compute("count(事项状态)","事项状态 = '" & zts(ri) & "'")
' Chart.AxisX.SetValueLabel(ri,zts(ri)) '指定字符表示
If zts(ri) = "进行中(延期)" Then
'Chart.SeriesList(ri).LineColor = Color.Red
Chart.SeriesList(ri).FillColor = Color.Red
ElseIf zts(ri) = "已完成(延期)" Then
'Chart.SeriesList(ri).LineColor = Color.Orange
Chart.SeriesList(ri).FillColor = Color.Orange
ElseIf zts(ri) = "进行中(将延)" Then
'Chart.SeriesList(ri).LineColor = Color.Yellow
Chart.SeriesList(ri).FillColor = Color.Yellow
ElseIf zts(ri) = "进行中(如期)"
' Chart.SeriesList(ri).LineColor = Color.SpringGreen
Chart.SeriesList(ri).FillColor = Color.SpringGreen
ElseIf zts(ri) = "已完成(如期)" Then
' Chart.SeriesList(ri).LineColor = Color.Green
Chart.SeriesList(ri).FillColor = Color.Green
'ElseIf r("项目状态") = "停止执行项目" Then
'Series.FillColor = Color.Gray
End If
Chart.BarClusterWidth = 200
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.AxisX.AnnoRotation = - 45
Series.DataLabelText = "{#YVAL}"
加好友 
发短信
Post By：2025/3/7 10:50:00 [显示全部帖子]
此主题相关图片如下：123456.png
