主题：图表

'输入具体数据生成图表
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