如何在运行时使用Active Reports绘制图表？

Question

我需要在运行时绘制图表，然后使用Active Reports将其另存为jpg文件。

我已经设法创建一个SectionReport并向其中添加一个ChartControl ：

Dim chartControl As New ChartControl()

Dim series As New GrapeCity.ActiveReports.Chart.Series
series.Type = Chart.ChartType.Bar3D

Dim objs As New List(Of Teste)()
objs.Add(New Teste With {.Nome = "TESTE1", .Valor = 15})
objs.Add(New Teste With {.Nome = "TESTE2", .Valor = 22})
objs.Add(New Teste With {.Nome = "TESTE3", .Valor = 10})
objs.Add(New Teste With {.Nome = "TESTE4", .Valor = 36})

Dim chartArea As New ChartArea()
chartControl.ChartAreas.Add(chartArea)

chartControl.DataSource = ConvertToDataTable(objs)
chartControl.Series.Add(series)
chartControl.Series(0).ValueMembersY = "Nome"
chartControl.Series(0).ValueMemberX = "Valor"

Dim rpt As New SectionReport()
rpt.DataSource = ConvertToDataTable(objs)

rpt.Sections.InsertPageHF()
rpt.Sections(0).BackColor = Color.LightGray

rpt.Sections.Insert(1, New Detail())
rpt.Sections(1).BackColor = Color.PeachPuff
rpt.Sections(1).Height = 1.5

rpt.Sections(0).Controls.Add(chartControl)

rpt.Run()

Export(rpt.Document, "C:\Testes\")

Export方法可以工作并生成jpg，问题是图表未出现在图像中。 在这里，有一条消息显示“未能绘制图表。”。 我已经使用在Active Reports设计器上创建的图表测试了Export方法，并且该方法运行完美。

那就是生成的jpg文件：

Answer 1

我最终得到以下代码。 我真的不知道为什么，但是确实有效。

Dim objs As New List(Of Teste)()
objs.Add(New Teste With {.Nome = "TESTE1", .Valor = 15})
objs.Add(New Teste With {.Nome = "TESTE2", .Valor = 22})
objs.Add(New Teste With {.Nome = "TESTE3", .Valor = 10})
objs.Add(New Teste With {.Nome = "TESTE4", .Valor = 36})
objs.Add(New Teste With {.Nome = "TESTE5", .Valor = 36})
objs.Add(New Teste With {.Nome = "TESTE6", .Valor = 36})
objs.Add(New Teste With {.Nome = "TESTE7", .Valor = 36})
objs.Add(New Teste With {.Nome = "TESTE8", .Valor = 36})
objs.Add(New Teste With {.Nome = "TESTE9", .Valor = 36})

Dim chartArea As New ChartArea(True)
Dim series As New Series()

For Each obj As Teste In objs
    Dim pt As New DataPoint()
    pt.XValue = obj.Nome
    pt.YValues = New DoubleArray(New Double() {obj.Valor})
    series.Points.Add(pt)
Next
series.ChartArea = chartArea
series.Type = ChartType.Bar2D
series.ColorPalette = ColorPalette.Iceberg

Dim chartControl As New ChartControl()
chartControl.DataSource = ConvertToDataTable(objs)
chartControl.Series.Add(series)
chartControl.ChartAreas.Add(chartArea)

Dim rpt As New SectionReport()

rpt.Sections.InsertPageHF()
rpt.Sections.Insert(1, New Detail())
rpt.PageSettings.Orientation = PageOrientation.Landscape
chartControl.Width = CSng(rpt.PageSettings.PaperWidth / 1.35)
chartControl.Height = CSng(rpt.PageSettings.PaperHeight / 5)

rpt.Sections(1).Controls.Add(chartControl)

rpt.Run()

Export(rpt.Document, "C:\Testes\")