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


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

主题:关于图表问题

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


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

代码?

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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


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

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

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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


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

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

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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


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

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

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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 下一页