以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于图表生成的数据源  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102095)

--  作者:sexbee
--  发布时间:2017/6/13 12:05:00
--  [求助]关于图表生成的数据源
窗口增加一折线图,必须绑定一个表吗? 如只是每次按 查询结果生成图形不保存,是不是生成临时表做为数据源即可?那只显示折线图,不显示临时表可以吗?
--  作者:有点色
--  发布时间:2017/6/13 12:08:00
--  

 

折线图可以根据数据直接生成,不一定需要绑定一个表的。

 

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

 


--  作者:sexbee
--  发布时间:2017/6/13 13:14: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 
\'设置图系的长度
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 \'启用字符标示

好像都需要绑定表,有直接查询显示的示例吗?


--  作者:sexbee
--  发布时间:2017/6/13 14:04:00
--  
建立一个sqlquery表,然后:

Dim t As Table = e.Form.controls("Tablelablist").Table
t.LoadFilter = "code=\'" & e.Row("code") & "\'"
t.Load

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

Chart= e.Form.Controls("Chartlab") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
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 \'启用字符标示


报错“loadfilter”不是table的成员

--  作者:有点色
--  发布时间:2017/6/13 14:23:00
--  

1、你要根据什么数据生成图表?

 

2、做个具体的例子发上来看看。


--  作者:sexbee
--  发布时间:2017/6/13 15:39:00
--  
谢谢 详细见  备注.txt
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:888.zip

[此贴子已经被作者于2017/6/13 15:39:56编辑过]

--  作者:有点色
--  发布时间:2017/6/13 15:52:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目888.table


--  作者:sexbee
--  发布时间:2017/6/13 16:19:00
--  
Series.Y(i) = t.Rows(i)("数值") \'指定垂直坐标     这里的数值  属性是不是必须是 数值型变量?
--  作者:sexbee
--  发布时间:2017/6/13 16:27:00
--  
??如果为数值型 字符串,在哪个环节转换为数值比较好?
--  作者:sexbee
--  发布时间:2017/6/13 16:53:00
--  
、是在绑定表里 增加一个加载后 事件转换吗