增加图表功能

专业报表并没有图表功能,不过利用ChartBuilder我们方便地在专业报表中实现图表生成和打印功能。

示例:

'生成图表
Dim
Chart As
New ChartBuilder
Dim
Series As WinForm.ChartSeries
Chart.DataSource =
"统计表1"
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.X.DataField =
"产品"
Series.Y.DataField =
"数量"
Chart.PrintWidth =
140
Chart.PrintHeight =
100
'打印图表

Dim
doc As New PrintDoc
Dim
rm As New prt.RenderImage
rm.Image = Chart.Image
doc.Body.Children.Add(rm)
Doc.Preview()


本页地址:http://www.foxtable.com/webhelp/topics/2094.htm