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

编译错误类型“DataRow"的值无法转换为“Row"

Dim doc  As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each dr As DataRow 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()

此主题相关图片如下：1282.png

看楼上12楼.

如果打印列包含图片列和数量列，又该如何处理

谢谢版主

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

 

 

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.Body.Children.Add(ra) '将容器ra加入到报表

doc.preview()

此主题相关图片如下：1284.png

 如下

 

Dim doc As New PrintDoc
Dim rx As prt.RenderText
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)
    Dim ra As New prt.RenderArea '定义一个容器
    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
    doc.Body.Children.Add(ra) '将容器ra加入到报表
   
Next

doc.preview()

 

如果我想使用两层分组，第一级是地区，第二级是城市，该如何编制代码？