主题：打印报表问题

    For i As Integer = .TopPosition To .BottomPosition     '选定行

        CurrentTable.Position = i

        Dim dr  = CurrentTable.Rows(i)

        Dim xm = dr("姓名")

        Dim fl As String = ProjectPath & "Reports\"  & xm & ".doc"

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

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

        wrt.Build() '生成报表

        wrt.Quit() '显示报表

    Next

    MessageBox.Show("文件已生成")

End With

问题：

当选定一行、多行时都没有问题

但是当选定所有行时，在第一个循环时 运行到 wrt.Build() 时候很长，而且经常出错。

而将循环起始从第一行调到第二行，则没有这种情况，即将其中的两句改为：

        CurrentTable.Position = i+1

        Dim dr  = CurrentTable.Rows(i+1)

请高手指点，是什么原因啊？