主题：圖表數據排序問題

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顯示的內容就錯位了？測試了好多次都是這樣，直接加上字符串就沒錯，但是調用表中單元格位置的內容就不行，不排序就沒問題，一排序就錯了

怎么样错位? 截图看看, 上个例子看看那

請看例子，在裡面切換排序就可以看到這問題

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

是BUG嗎？

.什么错位没明白你意思

汗，正常鼠标放到图系上TooltipText显示的应该是工序名和单元格的内容，但现在显示的是别的单元格的内容

正常应该是这样

此主题相关图片如下：111.jpg

但排序后变成了这样

此主题相关图片如下：112.jpg

最多只能这样, 只支持数值显示

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.DataLabelText = "{#YVAL}"
            Series.TooltipText = c.name & ":" & tb.Rows(rs)(c.Name)
            Chart.AxisX.SetValueLabel(rs, tb.Rows(rs)("工序")) '指定字符表示
        Next       
    End If
Next

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

 

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

 

汗，這個我知道，不是數字的問題，數字的我現在用的就是這個方法，但如果我要在這個圖表上顯示當前數據行中的另一列的內容呢？比如tb.Rows(rs)("第五列")這樣的話就沒法實現了，就是顯示到其它行的此列內容了