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

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

编码生成：

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

提示： 要指定对象的尺寸才行

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

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
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each dr As Row In DataTables("订单").Select("客户 = 'CS01' and 日期 = #" & Date.Today & "#", Tables("订单").Filter)
    Dim rt As New prt.RenderImage
    rt.Image = GetImage(dr("图片"))
    rt.Width = 19 '宽度为19毫米
    rt.Height = 8 '宽度为8毫米
    doc.body.Children.Add(rt)
Next
doc.Preview()