这里显示的和内容怎么对不起呀,感谢 感谢
此主题相关图片如下:搜狗截图18年08月30日2153_1.png
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
Dim t As Table = Tables("表A")
Dim sum As Double = 0
For Each s As String In t.DataTable.GetValues("第一列", "第一列 is not null")
Dim fdr As DataRow = t.DataTable.find("第一列='" & s & "'", "_sortkey desc")
If fdr IsNot Nothing Then
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "全部" '设置图系的标题
Series.TooltipText = Series.Text & " : {#YVAL}" '显示数据
series.DataLabelText = "{#YVAL}" '显示数据
Series.Length = 1 '一个系列只能包括一个值
Series.Text = s
Series.Y(0) = fdr("第二列")
Series.DataLabelText = fdr("第二列")
'msgbox(fdr("第二列"))
sum += fdr("第二列")
End If
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)
[此贴子已经被作者于2018/8/30 21:56:02编辑过]