Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.VisualEffect = True
For n As Integer = 0 To 1
Series = Chart.SeriesList.Add()
Series.Length = 10
For i As Integer = 0 To 9
Series.X(i) = i
Series.Y(i) = i + n * 2 + Rand.Next(5)
Next
Next
chart.HeaderText = "可以利用Foxtable的ChartBuilder动态生成图表"
Return Chart
-------------------
Dim Chart As ChartBuilder = Functions.Execute("task")
Dim txt As String = chart.HeaderText
wb.AddPageTitle("","ph1",txt)