你需要显示一个点的数据?
'
''--------------------------------------------------下面是动态生成Gun Error柱状图-----------------------------------------------------------------
Dim str As String
Dim str2,selected As String
Dim kk As Integer
kk=0
selected=e.Form.Controls("ComboBox1").value
For Each na As String In DataTables("ONDBDS").GetValues("VN","[Blk]='" & selected & "'")
Dim pan As WinForm.Panel'需要加上这一句
Dim tabs As WinForm.TabControl
str=na
Forms("窗口1").Controls("TabControl1").TabPages.Add(str, str)
pan = Forms("窗口1").CreateControl("pan" & na,ControlTypeEnum.Panel)
pan.Dock = System.Windows.Forms.DockStyle.fill
Forms("窗口1").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(pan)
tabs= Forms("窗口1").CreateControl("tab" & na,ControlTypeEnum.TabControl)
tabs.Dock = System.Windows.Forms.DockStyle.fill
pan.addcontrol(tabs)
Dim val1 As Integer=1
Dim k1 As Integer=val1
Dim ppp = tabs.tabpages.add("Summary","Summary")
Dim Chart5 As WinForm.Chart
Dim Series5 As WinForm.ChartSeries
Dim tChart5 As Table = Tables("ONDBDS")
Chart5 = New ChartBuilder
Chart5.ChartType = ChartTypeEnum.Bubble
Chart5.SeriesList.Clear() '清除图表原来的图系
Chart5.Dock = System.Windows.Forms.DockStyle.fill
Chart5.HeaderText=selected & " " & na & " Timing"
Chart5.AxisX.AnnoRotation = - 25
Dim tt As Table = Tables("ONDBDS")
Dim max2 As Date = tt.Compute("max(ODate)","Blk= '" & selected & "'")
Dim min2 As Date = tt.Compute("min(ODate)","Blk= '" & selected & "'")
Dim ii As Integer = 0
Dim dd = min2
Chart5.AxisX.Major = 1
Chart5.AxisX.MinorTick = False
Chart5.AxisX.Max = (max2-min2).Totaldays
Chart5.AxisX.Min = 0
For Each rChart5 As Col In tChart5.Cols
If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
Series5 = Chart5.SeriesList.Add()
Series5.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
series5.Text = rchart5.Name
Series5.length = (max2-min2).Totaldays + 1
End If
Next
Dim max = 0
Do While dd <= max2
Dim fdrr = tt.DataTable.find("VN='" & na & "' and ODate= #" & dd & "# and Blk= '" & selected & "'")
Dim jj As Integer = 0
For Each rChart5 As Col In tChart5.Cols
If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
Series5 = Chart5.SeriesList(jj)
If fdrr Is Nothing Then
Series5.X(ii) = ii
Series5.Y(ii) = 0
Series5.Y1(ii) = 1
Else
If max < (fdrr(rChart5.Name)) Then
max = (fdrr(rChart5.Name))
End If
Series5.X(ii) = ii
Series5.Y(ii) = (fdrr(rChart5.Name))
Series5.Y1(ii) = 1
Chart5.AxisY.Max = max + 2
End If
jj += 1
End If
Next
If ii Mod k1 = 0 Then
Chart5.AxisX.SetValueLabel(ii, dd) '指定字符表示
Else
Chart5.AxisX.SetValueLabel(ii, "")
End If
ii+= 1
dd = dd.adddays(1)
Loop
Chart5.SeriesList(0).Text="Opl"
Chart5.SeriesList(0).FillColor=Color.Green
Chart5.SeriesList(1).Text="CStan"
Chart5.SeriesList(1).FillColor=Color.Yellow
Chart5.SeriesList(2).Text="Dbil"
Chart5.AxisX.AnnoWithLabels = True
Chart5.LegendVisible = True '显示图列
Chart5.LegendCompass= CompassEnum.South
Chart5.Stacked = True
ppp.addcontrol(Chart5)
Next