- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表-word (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102702)
-- 发布时间：2017/6/24 7:25:00
-- 专业报表-word
此主题相关图片如下：微信截图_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编辑过]
-- 发布时间：2017/6/24 9:35:00
--
wrt.ReplaceWithImage("[作废]",ProjectPath & "Attachments\\作废.png",100,50)
上传模板看看
-- 发布时间：2017/6/24 23:00:00
-- 专业报表-word
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:收款收据.zip |
刚才的代码未起作用，传实例求助
-- 发布时间：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 |
-- 发布时间：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
着色的两行是我添加的，希望未“审核”时不能输出，并提示，感谢啦！
-- 发布时间：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