Foxtable(狐表)用户栏目专家坐堂 → [求助]根据字段内容选择WORD模板打印


  共有4096人关注过本帖树形打印复制链接

主题:[求助]根据字段内容选择WORD模板打印

帅哥哟,离线,有人找我吗?
wusim
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
[求助]根据字段内容选择WORD模板打印  发帖心情 Post By:2021/7/30 7:25:00 [显示全部帖子]

根据字段内容选择WORD模板打印? 只打印字段内容相同的多个记录没有问题,但是当打印字段内容不同的多个记录就存在问题,不能自动选择模板打印(批量打印)?例如:2条记录,设备品种有:电梯、自动扶梯,就不会选择相应的模板打印(不能连续打印,只能一个一个选择打印),下面的公式哪里出错?

打印记录按钮代码:

Dim dr As DataRow = Tables("电梯抽查").current.DataRow

If dr("设备品种") Like "曳*" Then

    Dim tm As String  = ProjectPath & "Attachments\电梯监督抽查原始记录0625.docx" '指定模板文件

    Dim fl As String = ProjectPath & "Reports\电梯监督抽查原始记录0625.docx" '指定目标文件

    Dim wrt As New WordReport(Tables("电梯抽查"),tm,fl) '定义一个WordReport

    wrt.Build() '生成报表

    wrt.Show() '显示报表

Else

    Dim tm As String  = ProjectPath & "Attachments\自动扶梯监督抽查原始记录0625.docx" '指定模板文件

    Dim fl As String = ProjectPath & "Reports\自动扶梯监督抽查原始记录0625.docx" '指定目标文件

    Dim wrt As New WordReport(Tables("电梯抽查"),tm,fl) '定义一个WordReport

    wrt.Build() '生成报表

    wrt.Show() '显示报表

End If



此主题相关图片如下:02.jpg
按此在新窗口浏览图片

此主题相关图片如下:01.jpg
按此在新窗口浏览图片


[此贴子已经被作者于2021/7/30 8:54:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2021/7/30 9:10:00 [显示全部帖子]

代码见1楼

 回到顶部