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