主题：专业报表求助

在命令窗口执行：

Dim s As String
For Each js As String In DataTables("报名表").GetUniqueValues("","竞赛名称")
    s = "2013年" & js &  vbcrlf
    For Each dq As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "'","区")
        s = s &  dq & vbcrlf
        s = s & "领队:"
        For Each ld As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","领队")
            s = s & ld & ","
        Next
        s= s.trim(",") & vbcrlf
        s = s & "教练:"
        For Each jl As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","教练")
            s = s & jl & ","
        Next
        s= s.trim(",") & vbcrlf
        s = s & "队员:"
        For Each dy As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","姓名")
            s = s & dy & ","
        Next
        s= s.trim(",") & vbcrlf
    Next
Next
output.show(s)

就得到你要的数据

呵呵，得到了你要的数据，连打印也不会吗？

Dim s As String
For Each js As String In DataTables("报名表").GetUniqueValues("","竞赛名称")
    s = "2013年" & js &  vbcrlf
    For Each dq As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "'","区")
        s = s &  vbcrlf & dq & vbcrlf
        s = s & "领队:"
        For Each ld As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","领队")
            s = s & ld & ","
        Next
        s= s.trim(",") & vbcrlf
        s = s & "教练:"
        For Each jl As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","教练")
            s = s & jl & ","
        Next
        s= s.trim(",") & vbcrlf
        s = s & "队员:"
        For Each dy As String In DataTables("报名表").GetUniqueValues("竞赛名称 = '" & js & "' And 区 = '" & dq & "'","姓名")
            s = s & dy & ","
        Next
        s= s.trim(",") & vbcrlf
    Next
Next
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = s '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

不能太依赖别人哦。