主题：新增614行，耗时43秒，有没有更快速代码

y2287958老师的代码，原贴：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=114054

此主题相关图片如下：666.jpg

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

点击浏览该文件:按被告新增行.table

谢谢甜老师，用时2.5秒

此主题相关图片如下：7777.jpg

甜老师，下面这段预览word报表代码，数据行614行，拉黑所有行预览，耗时22分钟，麻烦老师也给看一下！

谢谢！

Dim Result As DialogResult
Result = MessageBox.Show("将按照模板生成预览文书,但不会保存,可供打印!"& vbcrlf &"你可以选中多行行头,批量预览文书!"& vbcrlf &"是---预览"& vbcrlf &"否---返回", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    '预览和生成分开处理,用下面代码预览
   
    Dim tm As String  = ProjectPath & "Attachments\应诉通知书正本.doc" '指定模板文件
    With Tables("应诉通知书_table1")
        If .TopPosition > -1 Then '如果选定区域包括数据行
            Dim fileName As String = ProjectPath & "Reports\应诉通知书\预览.doc" '指定目标文件
            Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport
            For i As Integer = .TopPosition To .BottomPosition
                Dim r As Row = .Rows(i)
                wrt.BuildOne(r)
                wrt.RecordsOnEachPage  =1
            Next
            wrt.Show() '显示报表
        End If
    End With
Else
    Return
End If

10行17秒；60行30秒；再多就慢很多了

麻烦老师测试一下 

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

点击浏览该文件:66.rar