请问老师，下面代码报错。程序就想启用双图表，第一个图表的程序通过可以执行，执行第二个图表就报错，请问如何解决。谢谢指导。Dim Chart2 As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim tProd As Table = Tables("Proj")
Chart2= Forms("Data").Controls("Prod")
Dim min As Date = tProd.Compute("min(TDate)" ,"[Block]='" & sel & "'")
Dim max As Date = tProd.Compute("max(TDate)" , "[Block]='" & sel & "'")
dd=min
Chart2.SeriesList2.Clear() '清除图表原来的图系------------------------------
Series = Chart2.SeriesList2.Add() '给图表2增加一个图系-------------------
Chart2.ChartType2 = ChartTypeEnum.XYPlot
Chart2.AxisY.Text = "Prod"
Chart2.AxisY2.Text = "Accum"
i2=0
Do While dd <= max
Dim fdr3 = tProd.DataTable.find("TDate=#" & dd & "# And [Block]='" & sel & "'")
If fdr3 Is Nothing Then
Series.X(i2) = i2
Series.Y(i2) = 0
Else
Series.X(i2) = i2 ‘----执行到这里就报错，请问怎么解决
Series.Y(i2) = fdr3("T_Ave")
End If
If i2 Mod k = 0 Then
Chart2.AxisX.SetValueLabel(i2, dd)
Else
Chart2.AxisX.SetValueLabel(i2, "")
End If
i2 += 1
dd = dd.adddays(1)
Loop
[此贴子已经被作者于2024/5/24 13:51:10编辑过]
加好友 
发短信
Post By：2023/11/8 20:37:00 [显示全部帖子]
