主题：关于word报表模板分组显示问题

Dim tm As String  = ProjectPath & "Attachments\试卷模板.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\试卷模板.doc" '指定目标文件

Dim wrt As New WordReport(Tables("抽题"),tm,fl) '定义一个WordReport

Dim sb As new StringBuilder

For Each s As String In DataTables("抽题").GetValues("类别")

    sb.clear

    Dim i As Integer = 1

    For Each dr As DataRow In DataTables("抽题").Select("类别='" & s & "'")

        sb.AppendLine(i & ". " & dr("题目") & ".正确答案: " & dr("正确答案"))

        i += 1

    Next

    wrt.Replace("[" & s & "]",sb.ToString)

Next

wrt.Build() '逐行生成报表

wrt.Show() '显示报表