Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于图表问题


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

主题：关于图表问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 13:33:00 [显示全部帖子]

代码？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 14:55: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() '增加一个图系
t.sort = "月份"
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
For i As integer = 0 to t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = t.Rows(i)("月份") '指定水平坐标
    Series.Y(i) = t.Rows(i)("收入金额") '指定垂直坐标
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 21:34:00 [显示全部帖子]

目前没有内置这种类型的图表

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 8:31:00 [显示全部帖子]

把VisualEffect设置去掉：http://www.foxtable.com/webhelp/topics/0986.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 11:03:00 [显示全部帖子]

什么地方文本框？截图说明

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 12:13:00 [显示全部帖子]

Dim ctl As C1Chart.C1Chart = Forms("窗口1").Controls("Chart1").BaseControl
ctl.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
ctl.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 17:16:00 [显示全部帖子]

统计本身有问题，统计必须加上年份

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 17:31:00 [显示全部帖子]

生成图表的时候先按年份，再按月份排序取值。

Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
t.sort = "年,月份"
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 '启用字符标示
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 20:47:00 [显示全部帖子]

Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '设置图系的长度
Chart.AxisX.ClearValueLabel
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/4 8:34:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/1042.htm


Chart.ChartType2 = ChartTypeEnum.Bar
Chart.SeriesList2.Clear() 
Series = Chart.SeriesList2.Add()
Series.FillColor = Color.LightBlue '设置条形图的填充颜色
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询