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

点击浏览该文件:_带队表.xls

如何根据所有班级的报名表生成如下的每班分开的表

八年级1班                     领队：班主任2

  8101     8102     8103     8104     8105     8106     8107     8108

  任  彤   马  林   沙建伟   王永亮   马  召   田大龙   马诗洋   苏佳伏

  8109     8110     8111     8112     8113     8116     8117     8118

  郑  龙   潘  琦   白文伏   刘佳琦   李成杰   施  霞   马亮花   王  冉

  8120     8121     8122     8123     8124     8125     8126    8127       

  毛戎飞   杨  洋   黄珂田   聂  翔   李晓霞   王梦琪  丁晓艳   单虎琴   

  8128       8124     8125     8126    8127     8128     8129                                              

1、要做什么样的报表？word？

2、实例发上来，贴出你现在所写的代码。

1、模板

[班级]                                领队：[领队]

[人员]

2、代码

Dim tm As String  = ProjectPath & "Attachments\\0101.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\0101.docx" \'指定目标文件
Dim t As Table = Tables("报名表")
Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport

For Each bj As String In t.DataTable.GetValues("班级", "班级 is not null", "_sortkey")
    Dim fdr = t.DataTable.find("班级=\'" & bj & "\'")
    Dim str As String = ""
    Dim drs = t.DataTable.Select("班级=\'" & bj & "\'", "号码")
    Dim s1 As String = ""
    Dim s2 As String = ""
    For i As Integer = 0 To drs.count-1
        If i>0 AndAlso i Mod 8 = 0 Then
            str &= s1 & vbcrlf & s2 & vbcrlf
            str &= vbcrlf
            s1 = ""
            s2 = ""
        End If
        s1 &= drs(i)("号码") & chr(9)
        s2 &= drs(i)("姓名") & chr(9)
    Next
msgbox(str)
    wrt.ReplaceOne("[人员]",str)
    wrt.BuildOne(fdr)
Next
wrt.Show() \'显示报表

   一年级1班                                                           领队：班主任8

 按照老师的指导现在只显示两组共16个，多余的不显示，不知怎么回事？

不能到到目标--不足8个的隔空着，多余的另起一行，号码从小到大排序。

帮忙在修改一下！

1、4楼代码我测试没问题，如果有问题，做个实例发上来测试。

2、如果用excel报表的话，<HeaderRow>改成<GroupHeader,报名表汇总,班级,1>即可。如果每个分组之间需要空格，你插入空行即可，也就是<GroupFooter,报名表汇总,班级,1>插入多行