- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 横向图表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115120)
-- 发布时间：2018/3/1 13:11:00
-- 横向图表
老师好，请问一下横向图表的问题，假如说我只想要表中的某几列作为统计值来生成饼状图和折线图，请问一下应该怎么做
-- 发布时间：2018/3/1 14:34:00
--
http://www.foxtable.com/webhelp/scr/3223.htm
-- 发布时间：2018/3/1 14:51:00
--
先生成统计表
http://www.foxtable.com/webhelp/scr/0970.htm
具体问题，做实例发上来
-- 发布时间：2018/3/1 19:37:00
--
谢谢老师，生成问题解决了，并没有用统计表的生成，而是用的是客服老师提供的这两句代码
Dim str() As String = {"第一列"，“第三列”，“第四列”}
For Each s As String In str
现在的问题是每个扇形上面怎么显示对应的名称
-- 发布时间：2018/3/1 19:56:00
--
参考
http://www.foxtable.com/webhelp/scr/0972.htm
-- 发布时间：2018/3/1 20:50:00
--
老师我还是把项目示例发上来吧，以及怎样自定义各项的颜色，例如第一列一直都是黑色，第二列都是蓝色等等，扇形的数目和名称都是固定的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：2018/3/1 22:08:00
--
Dim idx As Integer=Tables("主界面_table1").count-1
Dim r As Row = Tables("主界面_table1").Rows(idx)
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("主界面_table1") \'定义一个变量t引用数据表
Chart= Forms("主界面").Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
Dim str() As String = {"第一列","第二列","第三列","第四列","第五列"}
Dim Colors() As Color = {Color.red, Color.yellow, Color.black, Color.green, Color.gray}
For i As Integer = 0 To str.length-1
Dim s As String = str(i)
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 1 \'一个系列只能包括一个值
Series.Text = s
Series.Y(0) = r(s) \'指定值
series.FillColor = Colors(i)
Series.DataLabelText=str(i)
Next
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.East
-- 发布时间：2018/3/1 23:06:00
--
谢谢老师，其实就是数组的用法对吗
-- 发布时间：2018/3/1 23:38:00
--
新问题，生成折线图的时候，我用的是这两句代码
Series.X(i) = t.Rows(i)("日期") \'指定水平坐标
Series.Y(i) = t.Rows(i)("时长") \'指定垂直坐标
日期列属性设为日期时间型，本来应该显示2018-02-27、02-28，但实际上是43158,43159，请问一下老师这个地方应该怎么获取正确的日期时间格式
-- 发布时间：2018/3/2 1:09:00
--
参考这种做法
http://www.foxtable.com/webhelp/scr/0968.htm