标题：图表问题

1楼

g1j2h3 发表于：2024/12/16 22:10:00

下边的统计表如何写代码，请大师指导

此主题相关图片如下：统计表1.png

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("窗口3_Table1") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.VisualEffect = False

Chart.SeriesList.Clear() '清除图表原来的图系

For r As Integer = 0 To t.Rows.count - 1

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = t.rows(r)("年") '设置图系的标题

Series.Length = t.Cols.Count - 1 '设置图系的长度

For c As Integer = 1 To t.Cols.count - 1

Series.X(c - 1) = t.Rows(0)(t.Cols(c).caption)

Series.Y(c - 1) = t.Rows(r)(c)

' Chart.AxisX.SetValueLabel(c - 1, t.Cols(c).caption) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.LegendVisible = True '显示图列

Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)

2楼

g1j2h3 发表于：2024/12/16 22:13:00

我想达到下边的效果，每个月的接单金额和发货金额并在一起，

此主题相关图片如下：图表1.png

3楼

有点蓝 发表于：2024/12/16 22:28:00

……

Chart.SeriesList.Clear() '清除图表原来的图系

dim ss() as string = {"接单金额","发货金额"}

For r As Integer = 0 To ss.length - 1

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = t.rows(0)("年") '设置图系的标题

Series.Length = (t.Cols.Count - 1) / 2 '设置图系的长度

dim i2 as integer = 0

For c As Integer = 1 To t.Cols.count - 1

dim kk() as string = t.Cols(c).caption.split("_")

if kk(1) = ss(r)

Series.X(i2) = i2

Series.Y(i2) = t.Rows(0)(t.Cols(c).name)

Chart.AxisX.SetValueLabel(i2 , kk(0)) '指定字符表示

i2 = i2 + 1

end if

Chart.AxisX.AnnoWithLabels = True '启用字符标示

……

4楼

g1j2h3 发表于：2024/12/17 7:24:00

感谢蓝老师！

共4 条记录, 每页显示 10 条, 页签: [1]