Foxtable(狐表)用户栏目专家坐堂 → [求助]关于图表生成的数据源


  共有6267人关注过本帖树形打印复制链接

主题:[求助]关于图表生成的数据源

帅哥哟,离线,有人找我吗?
sexbee
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
[求助]关于图表生成的数据源  发帖心情 Post By:2017/6/13 12:05:00 [显示全部帖子]

窗口增加一折线图,必须绑定一个表吗? 如只是每次按 查询结果生成图形不保存,是不是生成临时表做为数据源即可?那只显示折线图,不显示临时表可以吗?

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By: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的成员

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/13 15:39:00 [显示全部帖子]

谢谢 详细见  备注.txt
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:888.zip

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

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/13 16:19:00 [显示全部帖子]

Series.Y(i) = t.Rows(i)("数值") '指定垂直坐标     这里的数值  属性是不是必须是 数值型变量?

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/13 16:27:00 [显示全部帖子]

??如果为数值型 字符串,在哪个环节转换为数值比较好?

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/13 16:53:00 [显示全部帖子]

、是在绑定表里 增加一个加载后 事件转换吗

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/14 9:19:00 [显示全部帖子]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = e.Form.Controls("Tablelablist").Table '定义一个变量t引用数据表
 
Chart= e.Form.Controls("Chartlab") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
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) = val(t.Rows(i)("lvalue")) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(t.Rows(i)("time"), "yyyy-MM-dd")) '指定字符表示
Next
Chart.AxisX.AnnoRotation = -45
Chart.AxisX.AnnoWithLabels = True '启用字符标示

 

其他正常,水平轴不显示

 

 


[此贴子已经被作者于2017/6/22 12:43:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/14 10:17:00 [显示全部帖子]

以下是引用有点色在2017/6/14 9:52:00的发言:

 你的列,为什么不改成 日期列 ?

 

Chart.AxisX.SetValueLabel(i, format(cDate(t.Rows(i)("time")), "yyyy-MM-dd")) '指定字符表示

老师的意思是?

加了cDATE  就不能排序了?

 


图片点击可在新窗口打开查看此主题相关图片如下:2017-06-14_101445.gif
图片点击可在新窗口打开查看
我原先在afterload里面做了个 dt.sort = "time DESC"

 回到顶部
帅哥哟,离线,有人找我吗?
sexbee
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/14 12:20:00 [显示全部帖子]

这个我之前设置过了,是afterload事件,绑定表排序也可以了,但是图表好像不能排序
图片点击可在新窗口打开查看此主题相关图片如下:2017-06-14_121534.gif
图片点击可在新窗口打开查看

 回到顶部
总数 34 1 2 3 4 下一页