主题：生成的图有点太宽了

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

老师，这个图太宽了 ，就是每一个图系，这个咋调整啊，我在图系里面找了半天也没找到

参考

http://www.foxtable.com/webhelp/scr/0989.htm

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

老师，对于上图，各个单位的颜色都一样，可以不一样么么？

''生成各单位人数临时表
Dim b As New GroupTableBuilder("统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
t=b.Build() '生成统计表

'Dim Chart As WinForm.Chart '定义一个图表变量
'Dim Series As WinForm.ChartSeries '定义一个图系变量
'Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
'Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
'Chart.DataSource = "统计表1" '设置绑定表
'Chart.SeriesList.Clear() '清除图表原来的图系
'For Each c As DataCol In t.DataCols
    'If c.Name <> "单位" Then
        'Series = Chart.SeriesList.Add() '增加一个图系
        'Series.Text = c.Name '设置图系的标题
        'Series.X.DataField = "单位" 'X轴绑定到产品列
        'Series.Y.DataField = "人数" '设置Y轴的绑定列
    'End If
'Next
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
'Chart.LegendVisible = True '显示图列
'Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.AxisY.Min = 0 '指定Y轴的最小值
'Chart.AxisY.Max =10 '指定Y轴的最大值
Chart.AxisY.Major = 1 '主刻度间隔值为5000
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "单位" 'X轴绑定到产品列
Series.Y.DataField = "人数" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
Chart.BarClusterWidth =  20
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列

看看

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