Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("表A")
For Each s As String In tbl.DataTable.GetValues("用户")
'---------------------插入图表
Dim drs As List(Of DataRow) = tbl.DataTable.Select("用户='" & s & "'", "日期")
Dim Chart As New ChartBuilder
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = drs.Count '设置图系的长度
For i As Integer = 0 To drs.Count - 1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = drs(i)("项目1") '指定垂直坐标
Chart.AxisX.SetValueLabel(i, format(drs("日期"), "MM-dd")) '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Dim rm As New prt.RenderImage
rm.Image = Chart.Image()
doc.Body.Children.Add(rm) '将图片对象加入报表
Next
Doc.Preview() '预览报表
加好友 
发短信
Post By：2023/6/26 11:34:00 [显示全部帖子]
