以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图表不按排序后的顺序生成  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136723)

--  作者:翼城张波
--  发布时间:2019/6/19 22:32:00
--  图表不按排序后的顺序生成
生成统计表后,进行排
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190619222736.png
图片点击可在新窗口打开查看
序,然后生成的图表没有按排序后的统计表生成。

Tables("统计表2").Sort = "计数 DESC"
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("统计表2") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
Chart.DataSource = "统计表2" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.DataFilter = Filter
Chart.AxisY.Min = 0 \'指定Y轴的最小值
Chart.AxisY.Max = 10 \'指定Y轴的最大值
For Each c As Col In t.Cols
    If c.Name <> "线路名称" Then
        Series = Chart.SeriesList.Add() \'增加一个图系
        Series.Text = c.Name \'设置图系的标题
        Series.X.DataField = "线路名称" \'X轴绑定到产品列
        Series.Y.DataField = c.Name \'设置Y轴的绑定列
    End If
Next
Series.DataLabelText = "{#YVAL}"
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Chart.Inverted = True

--  作者:翼城张波
--  发布时间:2019/6/19 22:32:00
--  
生成统计表后,进行排序,然后生成的图表没有按排序后的统计表生成、
怎么办?????????

--  作者:reachtone
--  发布时间:2019/6/20 8:13:00
--  
非网页方面的问题,我给转到专家坐堂吧
--  作者:有点甜
--  发布时间:2019/6/20 9:19:00
--  

换一种方式处理,如

 

http://www.foxtable.com/webhelp/topics/0968.htm