Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:5 积分:90 威望:0 精华:0 注册:2017/6/10 15:42:00
[求助]  发帖心情 Post By:2017/6/10 15:56:00 [只看该作者]

求助!我在窗口设计中,我想设计一个窗口可以生成图表,但是生成的图表X轴不会根据Y轴的数值变化,求助,我在代码中如何编写?我还想让表显示数据值!代码如下! Dim Chart As WinForm.Chart '定义一个图表变量 Dim Series As WinForm.ChartSeries '定义一个图系变量 Dim t As Table = Tables("师宗县雄壁镇工作进度表") '定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形) Chart.DataSource = "师宗县雄壁镇工作进度表" '设置绑定表 Chart.SeriesList.Clear() '清除图表原来的图系 Series = Chart.SeriesList.Add() '增加一个图系 Series.X.DataField = "小阿舍村委会_村名" 'X轴绑定到产品列 Series.Y.DataField = "小阿舍村委会_进度" 'Y轴绑定到数量列 Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形) Chart.DataSource = "师宗县雄壁镇工作进度表" '设置绑定表 Chart.SeriesList.Clear() '清除图表原来的图系 Series = Chart.SeriesList.Add() '增加一个图系 Series.X.DataField = "小阿舍村委会_村名" 'X轴绑定到产品列 Series.Y.DataField = "小阿舍村委会_财金指标" 'Y轴绑定到数量列 Series.DataLabelText = "{#XVAL}"
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170610154735.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/10 16:09:00 [只看该作者]

实际数据截图看看。

另外请整理好代码再发上来

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


加好友 发短信
等级:婴狐 帖子:5 积分:90 威望:0 精华:0 注册:2017/6/10 15:42:00
  发帖心情 Post By:2017/6/10 17:05:00 [只看该作者]

图表上的就是我的实际数据!我希望图表的图会根据数据值不一样显示!


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


加好友 发短信
等级:婴狐 帖子:5 积分:90 威望:0 精华:0 注册:2017/6/10 15:42:00
求助!窗口图表显示!  发帖心情 Post By:2017/6/10 17:11:00 [只看该作者]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("师宗县雄壁镇工作进度表") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "师宗县雄壁镇工作进度表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "小阿舍村委会_村名" 'X轴绑定到产品列
Series.Y.DataField = "小阿舍村委会_进度" 'Y轴绑定到数量列
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "师宗县雄壁镇工作进度表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "小阿舍村委会_村名" 'X轴绑定到产品列
Series.Y.DataField = "小阿舍村委会_财金指标" 'Y轴绑定到数量列
Series.DataLabelText = "{#XVAL}"
图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/10 17:16:00 [只看该作者]

没看出您的问题。上面的图有什么地方不正确,结合表格数据说明

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


加好友 发短信
等级:婴狐 帖子:5 积分:90 威望:0 精华:0 注册:2017/6/10 15:42:00
我要这个效果  发帖心情 Post By:2017/6/10 17:24:00 [只看该作者]

我需要这个效果


图片点击可在新窗口打开查看此主题相关图片如下:0002.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170610154735.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:yao.png
图片点击可在新窗口打开查看

我想要最下面这个效果


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/10 17:41:00 [只看该作者]

把指标的列类型改为数值型

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


加好友 发短信
等级:婴狐 帖子:5 积分:90 威望:0 精华:0 注册:2017/6/10 15:42:00
  发帖心情 Post By:2017/6/10 18:04:00 [只看该作者]

谢谢!超级版主!!给力!


 回到顶部