专家坐堂-请问图表标签问题。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Chart As WinForm.Chart = Forms("窗口2").Controls("Chart1") \'得到一个图表

Dim Series As WinForm.ChartSeries \'声明一个图系

Chart.SeriesList.Clear() \'清除图表原来的图系

Dim c1Chart1 = Chart.basecontrol

Dim lbls = c1Chart1.ChartLabels

lbls.LabelsCollection.Clear()

Dim s() As String = {"aa","bb","cc","dd","ee","ff","gg","hh","ii","jj"}

For ii As Integer = 0 To 1

Series = Chart.SeriesList.Add()

Series.Length = 10

Series.MarkShape = MarkShapeEnum.Diamond

Series.MarkColor = Color.Red

Series.LinePattern = LinePatternEnum.None

For i As Integer = 0 To 9

Series.X(i) = i+ii \'指定水平坐标

Series.Y(i) = i + Rand.Next(5+ii) \'指定垂直坐标

Dim lbl As C1.Win.C1Chart.Label = lbls.LabelsCollection.AddNewLabel()

lbl.Text = s(i) & ii \'标示内容

lbl.AttachMethod = C1Chart.AttachMethodEnum.DataIndex

lbl.AttachMethodData.GroupIndex = 0

lbl.AttachMethodData.SeriesIndex = 0

lbl.AttachMethodData.PointIndex = i+ii

lbl.Compass = 0

lbl.Offset = 5

lbl.Visible = True