以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34325)
--  作者：wsxdwh
--  发布时间：2013/6/5 13:30:00
--  专业报表求助

专业报表求助：

期望的结果

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

                          号码对照表

江岸区

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

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

以下是队员编号和姓名

江汉区

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

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

以下是队员编号和姓名

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：wsxdwh
--  发布时间：2013/6/5 13:33:00
--  
代码在窗口“导航栏”页“项目编排”分页“报名表”按钮“参赛队员表”
[此贴子已经被作者于2013-6-5 13:34:53编辑过]
--  作者：wsxdwh
--  发布时间：2013/6/5 14:35:00
--  

狐表能做到吗？！

请高手指教！！！
--  作者：Bin
--  发布时间：2013/6/5 14:36:00
--  
1.无法连接外部数据源报错
2.没明白你想要的东西.
--  作者：狐狸爸爸
--  发布时间：2013/6/5 14:47:00
--  

在命令窗口执行：

 

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)

 

就得到你要的数据
--  作者：wsxdwh
--  发布时间：2013/6/5 16:49:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

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

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

 

请帮忙修改代码！！！
--  作者：狐狸爸爸
--  发布时间：2013/6/5 17:32:00
--  

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

 

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

 

不能太依赖别人哦。