主题：专业报表 / 数据绑定 / 多层分组

狐爸：应该参考帮助说明中的那一块内容？

我把文本列改成图片列，以下代码为什么错了？

Dim doc  As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows
    Dim rt As New prt.RenderImage
    rt.Image = r("图片")
    rt.Width = 19 '宽度为19毫米
    rt.Height = 8 '宽度为8毫米
    doc.body.Children.Add(rt)
Next
doc.Preview()

如果只提取客户是CS01,日期是今天的图片，代码该怎么写？

版主，帮我看看，错那里了？我要的效果是分组报表，明细列水平排列

Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim ra As New prt.RenderArea '定义一个容器
Dim tbl As Table = Tables("客户")
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetValues("地区")
doc.Pagesetting.LandScape = True
For Each Region As String In Regions
    rx = New prt.RenderText
    rx.Style.FontSize = 14
    rx.Style.FontBold = True
    rx.Style.Spacing.Bottom = 2
    rx.Text = "地区: " & Region
    doc.Body.Children.Add(rx)

ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
For Each dr As DataRow In DataTables("客户").Select("[地区] = '" & Region & "'")
Dim rt As New prt.RenderText
    rt.Text = dr("公司名称")
    rt.Width = 19 '宽度为19毫米
    rt.Height = 8 '宽度为8毫米
    ra.Children.Add(rt) '将文本对象加入到容器ra中
Next
Next

doc.preview()