以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选框选定行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90305)

--  作者:fox-man
--  发布时间:2016/9/9 12:39:00
--  复选框选定行
请教,根据“订单”数据表绑定图表,图表只显示复选框选中行的集合的图表,未复选行数据正常显示,但不显示图表。代码,谢谢!

--  作者:fox-man
--  发布时间:2016/9/9 14:05:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2016/9/9 17:25:00
--  
上例子测试
--  作者:狐狸爸爸
--  发布时间:2016/9/9 17:46:00
--  

 

不要用绑定的方式,用编码添加数据点的方式,这两节的帮助都有介绍添加数据点生成图表的方法:

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

 

帮助是所有行,你改一下就可以是符合条件的行:

 

Dim Chart  As WinForm.Chart  \'定义一个图表变量

Dim Series As WinForm.ChartSeries \'定义一个图系变量

Dim Rows As List(of Row) = Tables("表A").GetCheckedRows()
\'Dim Rows As List(of DataRow) = Tables("表A").Select("条件表达式","排序列")

Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表

Chart.SeriesList.Clear() \'清除图表原来的图系

Series = Chart.SeriesList.Add() \'增加一个图系

Series.Length = Rows.Count  \'图系的数据点数等于表的行数

For i As Integer =  0  To Rows.Count -  1  \'指定每个数据点的位置

    Series.X(i) = Rows(i)("月份") \'指定水平坐标

    Series.Y(i) = Rows(i)("数量") \'指定垂直坐标

Next

 

[此贴子已经被作者于2016/9/9 17:53:23编辑过]