- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按“劳动能力鉴定文号”批量生成文本内容时，中间有的序列号不能生成，隔掉了，怎么解决？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125435)
-- 发布时间：2018/9/28 10:25:00
-- [求助]按“劳动能力鉴定文号”批量生成文本内容时，中间有的序列号不能生成，隔掉了，怎么解决？
如：劳动能力鉴定文号1、2、3、4、5、6、7、8……。，批量生成时，1、2、3可以生成，但4不能生成，接着5可以生成，随机性的，如何解决
批量生成文本代码：
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() \'显示报表
模板：
此主题相关图片如下：001.jpg
此主题相关图片如下：001.jpg-- 发布时间：2018/9/28 10:41:00
--
实例发上来测试。
-- 发布时间：2018/9/28 17:00:00
--
实例：测试：劳动能力鉴定－－病退鉴定－－病退鉴定结论，生成“病退鉴定结论”时，出错
实例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工伤保险业务管理系统_201809281647.zip |
-- 发布时间：2018/9/28 17:31:00
--
我测试了一下，不论是全选或者是勾选部分的行，都可以正常生成的。
你试试把路径改成 Dim fl As String = ProjectPath & "病退鉴定结论书.doc"
如果还是有问题，请说明如何测试可以出问题。
-- 发布时间：2018/9/28 17:46:00
--
生成的内容中间有生不成劳动能力鉴定编号，要么生成重复的
-- 发布时间：2018/9/28 17:48:00
--
好的，我再试试
-- 发布时间：2018/9/28 17:49:00
--
模板和代码都没问题的，都会生成，不会重复。