| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]批量生成word文件时，为什么下列代码在每20个数据时出错，看看什么原因？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128333) |
| -- 作者：hrw68529 -- 发布时间：2018/12/4 10:49:00 -- [求助]批量生成word文件时，为什么下列代码在每20个数据时出错，看看什么原因？ 代码：Dim tm As String = ProjectPath & "Attachments\\病退鉴定结论书.doc" \'指定模板文件 Dim r As Row = Tables("劳动能力鉴定_鉴定").Current Dim fl As String ="\\\\gssj\\data\\病退鉴定\\"
& r("年度") &
"年" &
r("县区")
& "病退鉴定结论书.doc" Dim wrt As
New WordReport(Tables("劳动能力鉴定_鉴定"),tm,fl) \'定义一个WordReport wrt.RecordsOnEachPage()=1 wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 |
| -- 作者：hrw68529 -- 发布时间：2018/12/4 10:51:00 -- 每20个数据时生的文件时，重复生成一次 |
| -- 作者：有点甜 -- 发布时间：2018/12/4 10:51:00 -- 报什么错？贴出出错信息或者截图。 |
| -- 作者：有点甜 -- 发布时间：2018/12/4 10:52:00 -- 或者，做个实例发上来测试。 |