Foxtable(狐表)用户栏目专家坐堂 → 圖表數據排序問題


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

主题:圖表數據排序問題

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


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

 是不是这个意思?

 

Dim tb As Table = Tables("表A")
tb.Sort = "編碼"
'tb.Sort = ""

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表1类型可改为Bar(Pie条形)
Chart.SeriesList.Clear
Chart.BarClusterWidth = 80

For Each c As Col In tb.Cols
    If c.Name.Contains("數量") Then
        Series = Chart.SeriesList.Add() '增加第一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = tb.Rows.Count '设置图系的长度
        For rs As Integer = 0 To tb.Rows.Count - 1
            Series.X(rs) = rs
            Series.Y(rs) = tb.Rows(rs)(c.Name)
            Chart.AxisX.SetValueLabel(rs, tb.Rows(rs)("工序")) '指定字符表示
        Next
        Series.DataLabelText = "{#YVAL}"
        Series.TooltipText = c.name & ":{#YVAL}" 

    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)


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


加好友 发短信
等级:一尾狐 帖子:480 积分:3832 威望:0 精华:0 注册:2011/5/31 15:45:00
  发帖心情 Post By:2014/6/16 10:56:00 [只看该作者]

Dim tb As Table = Tables("表A")
tb.Sort = "編碼"
'tb.Sort = ""

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表1类型可改为Bar(Pie条形)
Chart.SeriesList.Clear
Chart.BarClusterWidth = 80

For Each c As Col In tb.Cols
    If c.Name.Contains("數量") Then
        Series = Chart.SeriesList.Add() '增加第一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = tb.Rows.Count '设置图系的长度
        For rs As Integer = 0 To tb.Rows.Count - 1
            Series.X(rs) = rs
            Series.Y(rs) = tb.Rows(rs)(c.Name)

            Series.TooltipText = tb.Rows(rs)("第五列")      '想要的結果是在此位置顯示當前行指定列的內容
            Chart.AxisX.SetValueLabel(rs, tb.Rows(rs)("工序")) '指定字符表示
        Next
    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)


這樣顯示的只有最後一行的第五列內容,有沒有辦法顯示的是當前行的第五列內容?想要的是顯示當前行指定列的內容

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


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

 TooltipText  无法另外定义,它只能定义一次,可变内容只能是 {YVAL}等

 回到顶部
总数 13 上一页 1 2