以文本方式查看主题

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

--  作者:wendude
--  发布时间:2016/1/18 12:03:00
--  [求助]图表问题

求助一下:表A中有三列,第一列,第二列,第三列。如何获取中这三列的值作为图表生成的中Y轴的值?

X轴的值为1,2,3;然后分别对Y轴进行依次赋值。谢谢


--  作者:大红袍
--  发布时间:2016/1/18 12:08:00
--  

 上传具体例子,说明要的效果

 

http://www.foxtable.com/help/topics/0970.htm

 


--  作者:wendude
--  发布时间:2016/1/18 12:58:00
--  [求助]图表问题

谢谢指导,假如有
图片点击可在新窗口打开查看此主题相关图片如下:测试表a(此表).jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:预期效果.jpg
图片点击可在新窗口打开查看

--  作者:wendude
--  发布时间:2016/1/18 14:20:00
--  [求助]图表问题

效果:1、给X轴赋值:姓名:张三、李四、王五

2、根据对表A筛选结果,对图表的对应姓名的Y轴进行赋值。如何从表A中获得列值,进行Y轴赋值?

Dim Chart  As WinForm.Chart  \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table =  Tables("统计表1") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart2") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 5 \'设置图系的长度
For i As Integer =  0  To 4  \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标

    \'Series.Y(i) = t.Rows(i)("数量_1") \'指定垂直坐标
Series.Y(i) = "数量_2" \'指定垂直坐标
    Chart.AxisX.SetValueLabel(0, "张三") \'指定字符表示
\'Chart.AxisY.SetValueLabel(0, "数量_1") \'指定字符表示
    Chart.AxisX.SetValueLabel(1, "李四") \'指定字符表示
\'Chart.AxisY.SetValueLabel(1, "数量_2") \'指定字符表示
Chart.AxisX.SetValueLabel(2, "王五") \'指定字符表示

Next

 

如何给Y赋值



--  作者:大红袍
--  发布时间:2016/1/18 14:39:00
--  

就是2楼这样啊。不会写代码的,上传foxtable例子。


--  作者:wendude
--  发布时间:2016/1/19 17:58:00
--  [求助]图表问题
已经解决,就是按照2楼的办法,谢谢!多理解代码就好了。