Foxtable(狐表)用户栏目专家坐堂 → 图表问题


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

主题:图表问题

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
图表问题  发帖心情 Post By:2014/9/1 17:07:00 [只看该作者]

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("采购明细表"))
Dim
 dt1 As fxDataSource
bd1
.Groups.AddDef("采购日期") '根据日期分组
bd1
.Totals.AddDef("金额","进货_金额") '对金额进行统计
dt1
 = bd1.BuildDataSource()

Dim
 bd2 As New GroupTableBuilder("统计表2",DataTables("出库"))
Dim
 dt2  As fxDataSource
bd2
.Groups.AddDef("出库日期") '根据日期分组
bd2
.Totals.AddDef("金额","销售_金额") '对金额进行统计
dt2
 = bd2.BuildDataSource()

dt1.Combine("采购日期",dt2,"出库日期") '将采购统计数据组合到出库统计数据
Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With
 DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
   
     .Add("库存_金额",Gettype(Double), "[库存_数量] /[进货_数量] * [进货_金额]"
End With

Dim Chart As WinForm.Chart '定义一个图表变量
Dim
 Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource =
 " Tables("窗口1_Table1")" '设置绑定表
Chart.SeriesList.Clear()
 '清除图表原来的图系
Series = Chart.SeriesList.Add()
 '增加一个图系
Series.X.DataField =
 "月份" 'X轴绑定到月份列
Series.Y.DataField = "进货金额" 'Y轴绑定到金额列

Series.Y.DataField = "出库金额" 'Y轴绑定到金额列


上述代码:目的在一体图表中表现两个折线,可行吗?关键是最后两行代码,谢谢,请指点


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/1 17:08:00 [只看该作者]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/1 17:08:00 [只看该作者]

 参考,多添加一个series即可

 

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

 

[此贴子已经被作者于2014-9-1 17:08:21编辑过]

 回到顶部