专家坐堂-图表柱子颜色Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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}"