……
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
Next
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
……
加好友 
发短信
Post By：2024/12/16 22:28:00 [显示全部帖子]
