Foxtable(狐表)用户栏目专家坐堂 → 这样的图表如何实现?


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

主题:这样的图表如何实现?

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 10:37:00 [显示全部帖子]

foxtable的图表多少条线都可以的啊?

自己编码加入各线条的节点即可。

 

用下面的方法一:

 

http://www.foxtable.com/help/topics/0967.htm

 

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 11:01:00 [显示全部帖子]

一样可以做

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 11:44:00 [显示全部帖子]

用foxtable设计好这个数据表,输入测试数据,然后传上来。

我帮你做个例子。

[此贴子已经被作者于2011-8-24 11:44:02编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 16:32:00 [显示全部帖子]

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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 17:03:00 [显示全部帖子]

加粗的部分,就是设置线条的:

 

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("计划完成表") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True
Chart.SeriesList.Clear() '清除图表原来的图系
Dim nms() As String = {"一","二","三","四","五","六","七","八","九","十","十一","十二"}
Dim r As Row = t.current
Series1 = Chart.SeriesList.Add() '增加一个图系
Series2 = Chart.SeriesList.Add() '增加一个图系
Series1.Length = 12 '图系的数据点数等于表的行数
Series2.Length = 12 '图系的数据点数等于表的行数
Series1.LineThickNess = 1
Series2.LineThickNess = 1
Series1.MarkSize = 2
Series2.MarkSize = 2
For i As Integer = 0 To 11
    Series1.y(i) = r(nms(i) & "_" & "计划")
    Series2.y(i) = r(nms(i) & "_" & "实现")
    Series1.x(i) = i
    Series2.X(i) = i
Next


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/24 17:55:00 [显示全部帖子]

你看我9楼的文件,是不是变化了?


 回到顶部