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

如下代码

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()

 如下

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()

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(0) & "   城市:" & Region(1)
    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(0) & "' and [城市] = '" & Region(1) & "' and 日期 = #" & Date.Today & "#", Tables("客户").Filter)
        Dim rn As New prt.RenderArea
        rn.Width = 53 '宽度53毫米
        rn.Height = 24 '高度24毫米
        rn.Style.Spacing.All = 1
        rn.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
        rn.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
        rn.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
        ra.ChildRen.Add(rn) '将容器加入到报表中
       
        Dim rt As New prt.RenderText
        rt.Text = dr("公司名称")
        rn.Children.Add(rt) '将文本对象加入到容器ra中
        Dim ri As New prt.RenderImage
        ri.Image = GetImage(dr("图片"))
        rn.Children.Add(ri) '将文本对象加入到容器ra中
       
    Next
    doc.Body.Children.Add(ra) '将容器ra加入到报表
   
Next

doc.preview()

改一下这句

Dim Regions As List(Of String) = tbl.DataTable.GetValues("地区|城市")

改成

Dim Regions As List(Of String()) = tbl.DataTable.GetValues("地区|城市")

GetValues("地区|城市", "国家 = '中国'")

http://www.foxtable.com/help/topics/2747.htm