主题：主窗口刷新

应该是内容太多了，控件大小不够大，把字体设置小一点。或者不要显示图例

字体改小了，，显示图列也关闭了，，出来的还是这样的

此主题相关图片如下：捕获.png

1楼不也就这样？有啥问题

1楼的第一圆形图后面的就6个部门显示呀，，现在后面部门显示几十个了

没有做筛选吧。1楼原来是怎么做的才会只有这几个部门？

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表") '定义一个变量t引用数据表
Dim sm As Integer = t.Compute("Sum(数量)") '计算总数量
Chart = Forms("图表").Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
For Each r As Row In t.Rows
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.Text = r("管辖部门") & "(" & r("数量") & ")" '设置图系的标题
    Series.Y(0) = r("数量") '指定值
    Series.DataLabelText = Math.Round(r("数量") * 100 / sm, 2) & "%" '计算百分比
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass = CompassEnum.East '图列显示在东方(右方)

 

在窗口里面是正常的，，，在统计表里面刷新窗口就错了

如果统计表原来只有几个部门，刷新统计表后多了很多部门，只能说统计表刷新的代码有问题。或者检查一下窗口打开前是不是对统计表做了什么筛选

部门现在就6个，，表里面也就6个，，就是图表出来重复的，不知道什么原因，窗口重新打开又是正常的，，哈哈

生成新的图表的时候，清除一下旧的图表数据

OK了，，就是少了一句清除图表，，在窗口里打开是没有图表的所以是正常的，怪不得出现重复