Foxtable(狐表)用户栏目专家坐堂 → [求助]如何checkword报表


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

主题:[求助]如何checkword报表

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


加好友 发短信
等级:童狐 帖子:234 积分:2335 威望:0 精华:0 注册:2011/6/19 0:05:00
[求助]如何checkword报表  发帖心情 Post By:2018/10/16 20:26:00 [只看该作者]

1、行记录为
序号 标段
1
2
3
4

2、word报表模板

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

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

格式1:
标段一 标段二 □标段三 标段四

格式2:

标段一R标段二标段三标段四




 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105490 积分:536441 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2335 威望:0 精华:0 注册:2011/6/19 0:05:00
  发帖心情 Post By:2018/10/16 21:47:00 [只看该作者]

实现。谢谢。

 回到顶部