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


  共有3703人关注过本帖平板打印复制链接

主题:圖表數據排序問題

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


加好友 发短信
等级:一尾狐 帖子:480 积分:3832 威望:0 精华:0 注册:2011/5/31 15:45:00
圖表數據排序問題  发帖心情 Post By:2014/6/14 10:42:00 [只看该作者]

Dim tb As Table = Tables(e.Form.name & "_Table_tb")
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
       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.DataLabelText = Series.Text
            Series.TooltipText = Series.Text & ":" & tb.Rows(rs)(c.Name)
        Next

Next

為什麼加上排序後TooltipText顯示的內容就錯位了?測試了好多次都是這樣,直接加上字符串就沒錯,但是調用表中單元格位置的內容就不行,不排序就沒問題,一排序就錯了


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