- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 图表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83047)
-- 发布时间：2016/3/30 10:44:00
-- 图表
你好！
有以下8列
编号 A列 B列 C列 D列 E列 F列 G列
A-01 2 3 4 5 6 7 8
A-02 2 3 4 5 6 7 8
B-01 2 3 4 5 6 7 8
按编号绘制雷达图怎么写代码--- 能同时分别按编号显示所有数据
-- 发布时间：2016/3/30 10:50:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68019&skin=0
-- 发布时间：2016/4/5 13:59:00
--
你好！
产品 编号 A列 B列 C列 D列 E列 F列 G列
A A-01 2 3 4 5 6 7 8
A A-02 2 3 4 5 6 7 8
B B-01 2 3 4 5 6 7 8
通过窗口控件ComboBox1筛选,同时生成该产品不同编号 A-G列的雷达图,如何设置系列？
\'输入具体数据生成图表
c1Chart1.ChartGroups(0).ChartType = C1.Win.C1Chart.Chart2DTypeEnum.Radar
Dim series As C1.Win.C1Chart.ChartDataSeriesCollection = c1Chart1.ChartGroups(0).ChartData.SeriesList
series.RemoveAll()
\' Fill the X array
Dim x As Integer() = CType(Array.CreateInstance(Gettype(Integer), 6), Integer())
Dim i As Integer
For i = 0 To x.Length - 1
x(i) = i + 1
Next i
\' Add one series
Dim s As C1.Win.C1Chart.ChartDataSeries = series.AddNewSeries()
s.LineStyle.Color = Color.SeaGreen
s.LineStyle.Thickness = 2
s.LineStyle.Pattern = C1.Win.C1Chart.LinePatternEnum.Solid
s.SymbolStyle.Color = Color.FromArgb(90, Color.Lime)
s.SymbolStyle.Shape = C1.Win.C1Chart.SymbolShapeEnum.Tri
s.SymbolStyle.Size = 8
s.Label = "bh.text"
s.Display = C1.Win.C1Chart.SeriesDisplayEnum.Show
Dim cmb As WinForm.ComboBox= Forms("窗口1").Controls("ComboBox1")
Dim bh() As String = DataTables("表A").GetValues("编号","产品=\'cmd.text\'")
Dim y() As Integer =
s.X.CopyDataIn(x)
s.Y.CopyDataIn(y)
End If
-- 发布时间：2016/4/5 14:34:00
--
请上传具体foxtabl例子。
-- 发布时间：2016/4/5 14:48:00
--
如例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图表_雷达图_例子.table |
-- 发布时间：2016/4/5 21:52:00
--
你好！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:图表_雷达图_例子.table |
-- 发布时间：2016/4/5 22:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:图表_雷达图_例子.table |