| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 临时表排序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121238) |
| -- 作者：yifan3429 -- 发布时间：2018/7/2 13:29:00 -- 临时表排序 Dim g As New GroupTableBuilder("统计表5", DataTables("终端用户")) g.Groups.AddDef("楼盘") g.Totals.AddDef("用户ID DESC", AggregateEnum.Count) g.VerticalTotal = True g.SubTotal = True g.GrandProportion = True g.FromServer = True g.Filter = "收客部门 = \'木作事业部\' And 客户等级 = \'赢单客户\'" Tables("CRM管理_Table3").DataSource = g.BuildDataSource() 我利用图生成图表 希望从低排到高的顺序 [此贴子已经被作者于2018/7/2 13:40:27编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/7/2 14:16:00 -- 生成后，再排序，如
Tables("CRM管理_Table3").sort = "用户ID desc" |
| -- 作者：yifan3429 -- 发布时间：2018/7/3 20:11:00 -- 表可以排序 图表好像不是按照表的排序来显示顺序 。图表有自己的排序功能吗 |
| -- 作者：有点蓝 -- 发布时间：2018/7/3 21:21:00 -- 不要绑定，使用循环赋值 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = t.Rows.Count \'图系的数据点数等于表的行数 t.sort = "用户ID desc"
For i As integer = 0 to t.Rows.Count - 1 \'指定每个数据点的位置 Series.X(i) = t.Rows(i)("月份") \'指定水平坐标 Series.Y(i) = t.Rows(i)("数量") \'指定垂直坐标 Next |
| -- 作者：yifan3429 -- 发布时间：2018/7/4 10:03:00 -- Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("赢单管理_Table3") \'定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形) Chart.DataSource = "赢单管理_Table3" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 \'Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = t.Rows.Count \'图系的数据点数等于表的行数 t.sort = "阶段 desc" For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置 Series.X(i) = t.Rows(i)("阶段") \'指定水平坐标 Series.Y(i) = t.Rows(i)("成交金额") \'指定垂直坐标 Next Series.DataLabelText = "{#YVAL}" .NET Framework 版本：2.0.50727.8762 Foxtable 版本：2018.3.9.1 错误所在事件：窗口,赢单管理,Button2,Click 详细错误信息： 未将对象引用设置到对象的实例。 下面的正常使用 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("赢单管理_Table3") \'定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形) Chart.DataSource = "赢单管理_Table3" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.X.DataField = "深化设计" \'X轴绑定到产品列 Series.Y.DataField = "成交金额" \'Y轴绑定到数量列 Series.DataLabelText = "{#YVAL}" [此贴子已经被作者于2018/7/4 10:04:18编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/7/4 10:40:00 -- Dim Chart As WinForm.Chart \'定义一个图表变量
http://www.foxtable.com/webhelp/scr/0968.htm
|