以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  图表问题，X轴按排序后的数据生成图表，  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87473)

--  作者：gryy --  发布时间：2016/7/12 14:16:00 --  图表问题，X轴按排序后的数据生成图表， X轴按第二列排序后的数据生成图表，排序依然是按第一列的顺序生产图表，这个是怎么回事呢  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目4.table [此贴子已经被作者于2016/7/12 14:16:21编辑过]

--  作者：大红袍 --  发布时间：2016/7/12 14:25:00 --   Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("表a") \'定义一个变量t引用数据表 t.sort = "第二列" Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形) Series.Length = t.Rows.Count \'设置图系的长度 For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置     Series.X(i) = i \'指定水平坐标     Series.Y(i) = t.Rows(i)("第二列") \'指定垂直坐标     Chart.AxisX.SetValueLabel(i, t.Rows(i)("第一列")) \'指定字符表示 Next Chart.AxisX.AnnoWithLabels = True \'启用字符标示