Foxtable(狐表)用户栏目专家坐堂 → 呼叫------程版.........这样的图表看上去很别扭..能按要求做出所需要的图表吗?


  共有14362人关注过本帖树形打印复制链接

主题:呼叫------程版.........这样的图表看上去很别扭..能按要求做出所需要的图表吗?

帅哥哟,离线,有人找我吗?
qhczy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
呼叫------程版.........这样的图表看上去很别扭..能按要求做出所需要的图表吗?  发帖心情 Post By:2011/6/22 18:26:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:图表疑问.bmp
图片点击可在新窗口打开查看

想让月份停在X轴,年份为图标.年份显在下面.

 

 

数据如下:


图片点击可在新窗口打开查看此主题相关图片如下:图示数据.bmp
图片点击可在新窗口打开查看

 

代码如下,望高手指点.

Dim q As new QueryBuilder

q.TableName = "订单销售汇总"
q.SelectString = "select 年份,sum (销售金额) 销售金额,月份 from  {订单} group by 年份,月份 "

q.Build
MainTable = Tables("订单销售汇总")
Dim g As New CrossTableBuilder("终端订单销售汇总", DataTables("终端订单销售汇总"))
g.Caption = "订单销售汇总"
g.HGroups.AddDef("年份")
g.VGroups.AddDef("月份")
g.Totals.AddDef("销售金额", "销售金额")
g.Build()
MainTable = Tables("订单销售汇总")
Tables("订单销售汇总").AutoSizeCols()
MainTable.Font = New Font("宋体",10,FontStyle.Regular)


Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("订单销售汇总") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot '图表类型改为XYPlot(线形)
Chart.DataSource = "订单销售汇总" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "销售金额" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Caption '设置图系的标题
        Series.X.DataField = "年份" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
       Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
       Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"

    End If
Next
Chart.VisualEffect = False '不采用Visual风格
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
MainTable = Tables("订单销售汇总")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

 

 

希望能生成这样的图表.一年一条线,右边的图示表示年份.

 


图片点击可在新窗口打开查看此主题相关图片如下:图表.bmp
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-6-23 19:12:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/22 18:51:00 [显示全部帖子]

给个数据,谁能改改?

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图表示例.zip


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/23 19:13:00 [显示全部帖子]

呼叫----程版!

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/23 20:23:00 [显示全部帖子]

附:xls文档

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据.zip


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/24 9:50:00 [显示全部帖子]

做个示例上来看看啊,我这边做出来怎么会报错呢?

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/24 14:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:错误提示.bmp
图片点击可在新窗口打开查看

同样的数据,只不过把月份从大写改为阿拉伯数字了.怎么会报错?

[此贴子已经被作者于2011-6-24 14:43:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/24 14:43:00 [显示全部帖子]

明白了,数据类型不同,所以导致上述错误.

 

Dim nms() As String

应该为 

dim nms() as Integer


 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/24 15:08:00 [显示全部帖子]

数据标示,能标示多条拆线上的数据点吗?为什么用 Series.DataLabelText = "{#YVAL}" 只能标示一条拆线的数据?  


图片点击可在新窗口打开查看此主题相关图片如下:数据标示.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
qhczy
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2451 威望:0 精华:1 注册:2010/9/14 13:18:00
  发帖心情 Post By:2011/6/24 15:20:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:数据标示.bmp
图片点击可在新窗口打开查看

 回到顶部