主题：新增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

word模板发上来测试。

word报表的话，会有你说的问题，报表越复杂，生成的行数越多，耗时越久。

大数据量，建议还是用excel来做吧；如果要用word，也建议一个一个word的生成，而不是生成在一个大word里面（如，10行或者60行生成一个文件）

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

麻烦老师测试一下 

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

点击浏览该文件:66.rar

没办法，试试这样，一个一个的生成。

Dim Result As DialogResult
Result = MessageBox.Show("将按照模板生成预览文书,但不会保存,可供打印!"& vbcrlf &"你可以选中多行行头,批量预览文书!"& vbcrlf &"是---预览"& vbcrlf &"否---返回", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    '预览和生成分开处理,用下面代码预览
    Dim st As Date = Date.Now   '开始计时
    Dim tm As String  = ProjectPath & "Attachments\通知书正本.doc" '指定模板文件
    With Tables("通知_table1")
        If .TopPosition > -1 Then '如果选定区域包括数据行
            Dim prs As Integer = 20
            For p As Integer = 0 To math.Ceiling((.bottomposition-.Topposition+1) / prs) - 1
                Dim fileName As String = ProjectPath & "Reports\应诉通知书\预览" & p & ".doc" '指定目标文件
                Dim wrt As New WordReport(Tables("通知_table1"),tm,fileName) '定义一个WordReport
                For i As Integer =  p * prs To math.min(.bottomposition-.topposition,( p + 1) * prs - 1)
                    application.Doevents
                    Dim r As Row = .Rows(.Topposition +i)
                    wrt.BuildOne(r)
                    wrt.RecordsOnEachPage  =1
                Next
                wrt.quit
                Dim proc As new Process
                proc.File = filename
                proc.start
            Next
        End If
    End With
    MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
Else
    Return
End If