主题：专业报表求助

专业报表求助：

期望的结果

                   2013年海模--------

                          号码对照表

江岸区

领队： 张三(领队列所有名字)

教练：陈祖华   杨波（教练列所有名子）

以下是队员编号和姓名

江汉区

领队： 李四(领队列所有名字)

教练：陈祖华   杨波（教练列所有名子）

以下是队员编号和姓名

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

代码在窗口“导航栏”页“项目编排”分页“报名表”按钮“参赛队员表”

狐表能做到吗？！

请高手指教！！！

1.无法连接外部数据源报错

在命令窗口执行：

 

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)

 

就得到你要的数据

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

谢谢狐爸指教，我需要报表。

代码在窗口“导航栏”页“项目编排”分页“报名表”按钮“参赛队员表”

 

请帮忙修改代码！！！

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

 

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() '预览

 

不能太依赖别人哦。