Foxtable(狐表)用户栏目专家坐堂 → 1、图表多列Y,代码怎么写;2、如何只显示同一个项目的XY值图表


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

主题:1、图表多列Y,代码怎么写;2、如何只显示同一个项目的XY值图表

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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
1、图表多列Y,代码怎么写;2、如何只显示同一个项目的XY值图表  发帖心情 Post By:2017/12/8 15:10:00 [只看该作者]

1、图表多列Y,代码怎么写;2、如何只显示同一个项目的XY值图表,或者说不同项目分页显示;3、添加标题、图例、调整X轴月份垂直显示等
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:成本测算 - 171129 - 副本.rar


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


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

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计") '定义一个变量t引用数据表
Chart= forms("费用进度图").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel

Dim ary() As String = {"BCWS","ACWP","BCWP"}
Dim xm As String = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"
Chart.HeaderText = xm
Dim drs = t.DataTable.Select("项目名称 = '" & xm & "'", "统计月")
For Each s As String In ary
    Series = Chart.SeriesList.Add() '增加一个图系
    series.Text = s
    Series.Length = drs.Count '设置图系的长度
    For i As Integer = 0 To drs.Count - 1 '指定每个数据点的位置
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = drs(i)(s) '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, drs(i)("统计月")) '指定字符表示
    Next
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 

请把chart帮助文档看完一遍 http://www.foxtable.com/webhelp/scr/0966.htm

 


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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2017/12/8 15:59:00 [只看该作者]

Dim xm As String = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"

好不好做成动态的,我鼠标选在那个项目,显示该项目的费用进度图?


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


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

Dim xm As String = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"

 

改成

 

Dim xm As String = t.current("项目名称")


 回到顶部