共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：图表X轴代码怎么写
1楼
chenwuwenyu 发表于：2009/8/24 18:52:00Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表1")
以年月分组统计
问题是如果让图表的X轴，显示“年＋月”
此主题相关图片如下：未命名.jpg
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "销售统计表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "X" 'X轴绑定到月份列
Series.Y.DataField = "Y" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表1")
以年月分组统计
问题是如果让图表的X轴，显示“年＋月”
此主题相关图片如下：未命名.jpgDim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "销售统计表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "X" 'X轴绑定到月份列
Series.Y.DataField = "Y" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
2楼
yangming 发表于：2009/8/24 19:14:00加一个辅助列
共2 条记录, 每页显示 10 条, 页签:
[1]