专家坐堂-[求助]数据雷达图Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'初始化图表

Dim c1Chart1 = Forms("窗口1").Controls("Chart1").BaseControl

c1Chart1.ChartGroups(0).ChartType = C1.Win.C1Chart.Chart2DTypeEnum.Radar

c1Chart1.BackColor = Color.White

\' Setup the header and footer

c1Chart1.Header.Style.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Bold)

c1Chart1.Header.Text = "Employment Candidate Review"

c1Chart1.Footer.Visible = False

\' Setup the legend

c1Chart1.Legend.Compass = C1.Win.C1Chart.CompassEnum.South

c1Chart1.Legend.Orientation = C1.Win.C1Chart.LegendOrientationEnum.Horizontal

c1Chart1.Legend.Visible = True

\' Setup the Axis X

Dim ax As C1.Win.C1Chart.Axis = c1Chart1.ChartArea.AxisX

ax.Font = New Font("Arial", 8)

ax.Thickness = 2

ax.AnnoMethod = C1.Win.C1Chart.AnnotationMethodEnum.ValueLabels

ax.GridMajor.Color = Color.DarkGray

ax.GridMajor.Pattern = C1.Win.C1Chart.LinePatternEnum.Solid

ax.GridMajor.Thickness = 2

ax.GridMajor.Visible = True

\' Setup the value labels

Dim vlbl As C1.Win.C1Chart.ValueLabel = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 1

vlbl.Text = "A商品"

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 2

vlbl.Text = "B商品"

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 3

vlbl.Text = "C商品"

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 4

vlbl.Text = "D商品"

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 5

vlbl.Text = "E商品"

\' Setup the Axis Y

Dim ay As C1.Win.C1Chart.Axis = c1Chart1.ChartArea.AxisY

ay.Min = 0

ay.Max = 50

ay.UnitMinor = 0

ay.UnitMajor = 10

ay.Compass = C1.Win.C1Chart.CompassEnum.North

c1Chart1.UseAntiAliasedGraphics = True

\'输入具体数据生成图表

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 = 6

s.Label = "Michael Johnson"

s.Display = C1.Win.C1Chart.SeriesDisplayEnum.Show

Dim y() As Integer = {10, 8, 23, 4, 18} \'问题：如何自动绑定A表中的数值列?????数组？

s.X.CopyDataIn(x)

s.Y.CopyDataIn(y)