主题：word报表：如何使多行数据在同一个word中？

以下是引用有点甜在2017/9/5 15:19:00的发言：

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

点击浏览该文件:调动.zip

谢谢高手！但有一个小问题：有多少人就生成了多少相同文件，能不能设置只生成一份文件？

代码改一下

Dim tm As String  = ProjectPath & "Attachments\调动文件.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\调动文件.doc" '指定目标文件
Dim t As Table = Tables("调动信息表")
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReport
Dim count As Integer = 0
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
    count += 1
    Dim r As Row = t.Rows(i)
    If count = 1 Then
        str &= "   " & r("姓名") & "同志由" & r("调出学校") & "调" & r("调入学校") & "工作;"
    Else
        str &= "  " & r("姓名") & "同志由" & r("调出学校") & "调" & r("调入学校") & "工作;"
    End If
    If i < t.BottomPosition Then
        str &= vbcrlf
    End If
Next
wrt.ReplaceOne("[个数]",count)
wrt.ReplaceOne("[内容]",str)
wrt.BuildOne(t.Rows(t.TopPosition))
wrt.Show() '显示报表

谢谢高手！