专业报表-word - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表-word

共有2213人关注过本帖树形打印复制链接主题：专业报表-word

表叔

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1644 威望：0 精华：0 注册：2016/12/22 18:08:00

专业报表-word 发帖心情

Post By：2017/6/24 7:25:00 [只看该作者]

此主题相关图片如下：微信截图_20170624071756.png

如图。求教：将输出作废的数据单据上显示“作废”,

Dim tm As String = ProjectPath & "Attachments\收款收据.doc" '指定模板文件

Dim sjd As String = ProjectPath & "Reports\收款收据.doc" '指定目标doc文件

Dim sjp As String = ProjectPath & "Reports\收款收据.pdf" '指定目标PDF文件

Dim wrt As New WordReport(Tables("收据签发表"),tm,sjd) '定义一个WordReport

wrt.ReplaceWithImage("[作废] = true","Attachments\作废.png ",100,50) 该段代码写不好，输出时不起作用！

wrt.Build() '逐行生成报表

wrt.SaveToPDF(sjp) '保存为PDF文件

wrt.Quit() '退出

Dim Proc As New Process '打开PDF文件

Proc.File = sjp

Proc.Start() '显示报表

[此贴子已经被作者于2017/6/24 7:41:57编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/24 9:35:00 [只看该作者]

wrt.ReplaceWithImage("[作废]",ProjectPath & "Attachments\作废.png",100,50)

上传模板看看

表叔

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1644 威望：0 精华：0 注册：2016/12/22 18:08:00

专业报表-word 发帖心情

Post By：2017/6/24 23:00:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:收款收据.zip

刚才的代码未起作用，传实例求助

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/25 11:26:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\收款收据.doc" '指定模板文件
Dim sjd As String = ProjectPath & "Reports\收款收据.doc" '指定目标doc文件
Dim sjp As String = ProjectPath & "Reports\收款收据.pdf" '指定目标PDF文件
Dim t As Table = Tables("收据签发表")
Dim wrt As New WordReport(t,tm,sjd) '定义一个WordReport
For i As Integer = t.TopPosition To t.BottomPosition
    If t.Rows(i)("作废") = True Then
        FileSys.CopyFile(ProjectPath & "Attachments\作废.jpg", ProjectPath & "Attachments\图片.jpg", True)

    Else
        FileSys.CopyFile(ProjectPath & "Attachments\空白.jpg", ProjectPath & "Attachments\图片.jpg", True)
    End If
    wrt.BuildOne(t.Rows(i))
Next
wrt.SaveToPDF(sjp) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = sjp
Proc.Start() '显示报表

下载信息 [文件大小：下载次数： ]
点击浏览该文件:收款收据.zip

表叔

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1644 威望：0 精华：0 注册：2016/12/22 18:08:00

专业报表输出 发帖心情

Post By：2017/6/29 6:44:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\收款收据.docx" '指定模板文件

Dim fl As String = ProjectPath & "Reports\收款收据.docx" '指定目标文件

Dim fl2 As String = ProjectPath & "Reports\收款收据.pdf" '指定目标PDF文件

Dim wrt As New WordReport(Tables("收据签发表"),tm,fl) '定义一个WordReport

If Tables("收据签发表").Row("审核") = False Then

wrt.Build() = False Else '逐行生成报表

wrt.Build() '逐行生成报表

wrt.SaveToPDF(fl2) '保存为PDF文件

wrt.Quit() '退出

Dim Proc As New Process '打开PDF文件

Proc.File = fl2

Proc.Start() '显示报表

End If

着色的两行是我添加的，希望未“审核”时不能输出，并提示，感谢啦！

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/29 8:56:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\收款收据.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\收款收据.docx" '指定目标文件
Dim fl2 As String = ProjectPath & "Reports\收款收据.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("收据签发表"),tm,fl) '定义一个WordReport
If Tables("收据签发表").Current("审核") = False Then
    msgbox("未审核")
Else '逐行生成报表
    wrt.Build() '逐行生成报表
    wrt.SaveToPDF(fl2) '保存为PDF文件
    wrt.Quit() '退出
    Dim Proc As New Process '打开PDF文件
    Proc.File = fl2
    Proc.Start() '显示报表
End If

下一主题 >> << 上一主题

主题：专业报表-word