以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101953)

--  作者:15924889000
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/6/10 16:09:00
--  
实际数据截图看看。

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

--  作者:15924889000
--  发布时间:2017/6/10 17:05:00
--  

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


--  作者:15924889000
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/6/10 17:16:00
--  
没看出您的问题。上面的图有什么地方不正确,结合表格数据说明
--  作者:15924889000
--  发布时间:2017/6/10 17:24:00
--  我要这个效果

我需要这个效果


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

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

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

我想要最下面这个效果


--  作者:有点蓝
--  发布时间:2017/6/10 17:41:00
--  
把指标的列类型改为数值型
--  作者:15924889000
--  发布时间:2017/6/10 18:04:00
--  

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