Dim Chart As WinForm.Chart '定义一个图表变量 Dim Series As WinForm.ChartSeries '定义一个图系变量 Dim sm As Integer = DataTables("任务信息").Compute("Sum(外协费用)") '计算总数量 Chart= Forms("数据报表").Controls("Chart1") ' 引用窗口中的图表 Chart.SeriesList.Clear() '清除图表原来的图系 Chart.VisualEffect = True '加上这一行,让你的图表更漂亮 Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为PIE(饼形) For Each nm As String In DataTables("任务信息").GetValues("外协单位") Dim v As Double = DataTables("任务信息").compute("Sum(外协费用)","外协单位='" & nm & "'") Series = Chart.SeriesList.Add() '增加一个图系 Series.Length = 1 '一个系列只能包括一个值 Series.Text = nm & "(" & v & ")" '设置图系的标题 Series.Y(0) = v '指定值