以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何checkword报表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126220)
--  作者：witkeylaw
--  发布时间：2018/10/16 20:26:00
--  [求助]如何checkword报表
1、行记录为
序号 标段
1 一
2 二
3 三
4 四

2、word报表模板

□标段一 □标段二 □标段三 □标段四

3、需求
假设选中第2条记录，标段二，word报表输出为：

格式1：
□标段一 ■标段二 □标段三 □标段四

格式2：

□标段一R标段二□标段三□标段四
--  作者：有点蓝
--  发布时间：2018/10/16 20:51:00
--  
word报表模板在需要显示的位置填入
【标段】

做个窗口按钮，代码：

Dim srr() As String = {"一","二","三","四"}
Dim str As String
Dim bd As String = Tables("表A").Current("标段")
For Each s As String In srr
    If s = bd Then
        str = str & "■标段" & s
    Else
        str = str & "□标段" & s
    End If
Next
msgbox(str)
Dim tm As String  = ProjectPath & "Attachments\\订单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\订单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) \'定义一个WordReport
wrt.Replace("【标段】",str) 
wrt.Build() \'生成报表
wrt.Show() \'显示报表
--  作者：witkeylaw
--  发布时间：2018/10/16 21:47:00
--  
实现。谢谢。