增加图表功能

'生成图表
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()