主题：圆饼图表生成

能在问问2给问题吗？ 可以让图标变得饱满一写吗？

参考代码，自己组合

 

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
        msgbox(fdr("第二列"))
        sum += fdr("第二列")
    End If
Next
msgbox(sum)

 

感谢 感谢 可以让图表显示的大小在控件设置的大小相差不大吗？感谢 感谢 

 

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120084&skin=0

 

感谢 感受 我试了， 感谢 可以吧图表显示的设置包含一写吗，就是圈起的位置没有那么宽，感谢 感谢

测试了一下，做不到你所需要的效果。

感谢 感谢 谢谢 

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.Length = 1 '一个系列只能包括一个值
        Series.Text = s
        Series.Y(0) = fdr("第二列")
        Series.DataLabelText = fdr("第二列")       
        msgbox(fdr("第二列"))
        sum += fdr("第二列")       
        Chart.LegendVisible = True '显示图列
        Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)
    End If
Next

太感谢了  太感谢了，可以了