此主题相关图片如下:1.png
老师,这个统计表里面,列名是中文,但是图表里面是英文。
此主题相关图片如下:2.png
代码:
'生成离退休人数临时表
Dim b2 As New CrossTableBuilder("统计表3",DataTables("person"))
b2.HGroups.AddDef("organName","单位") '添加客户列用于水平分组
b2.VGroups.AddDef("leaOrRetire") '添加产品列用于垂直分组
b2.Totals.AddDef("leaOrRetire", AggregateEnum.Count)
b2.Build '生成统计表
MainTable = Tables("统计表3") '打开生成的统计表
Dim Chart2 As WinForm.Chart '定义一个图表变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t2 As Table = Tables("统计表3") '定义一个变量t引用数据表
Chart2 = e.Form.Controls("Chart3") ' 引用窗口中的图表
Chart2.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart2.DataSource = "统计表3" '设置绑定表
Chart2.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t2.Cols
If c.Name <> "单位" Then
Series = Chart2.SeriesList.Add() '增加一个图系
Series.Text = c.Name '设置图系的标题
Series.X.DataField = "单位" 'X轴绑定到产品列
Series.Y.DataField = c.Name '设置Y轴的绑定列
End If
Next
'Chart2.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
Chart2.BarClusterWidth = 5
Chart2.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart2.LegendVisible = True '显示图列
Chart2.LegendCompass= CompassEnum.east '图列显示在南方(底端)
老师,如何取得中文名称?