| 以文本方式查看主题 - 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=126476) |
| -- 作者：kmzb56 -- 发布时间：2018/10/22 15:51:00 -- 请教一个导出word报表的问题？ Dim tm As String = ProjectPath & "Attachments\\运输合同.docx" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\运输合同.docx" \'指定目标文件 Dim wrt As New WordReport(Tables("派车记录表"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 像这种，我可不可以导出直接生成？姓名+日期+到达地.doc 的格式？我查了好久的文档好久没有这种资料。其中这几个变量取值于 派车记录表的字段。
|
| -- 作者：有点甜 -- 发布时间：2018/10/22 16:13:00 -- Dim r As Row = Tables("派车记录表").Current
Dim tm As String = ProjectPath & "Attachments\\运输合同.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\" & r("姓名") & r("日期") & r("到达地") & ".docx" \'指定目标文件
Dim wrt As New WordReport(Tables("派车记录表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
|
| -- 作者：kmzb56 -- 发布时间：2018/10/22 18:18:00 -- 明白了一些，但是有些不对，感觉日期型要转成字符才能行，我查查资料，没找到。 |
| -- 作者：有点甜 -- 发布时间：2018/10/22 18:22:00 -- 以下是引用kmzb56在2018/10/22 18:18:00的发言：
明白了一些，但是有些不对，感觉日期型要转成字符才能行，我查查资料，没找到。
参考 http://www.foxtable.com/webhelp/scr/0362.htm
|
| -- 作者：kmzb56 -- 发布时间：2018/10/23 22:38:00 -- Dim fl As String = ProjectPath & "运输合同\\" & "运输合同" & "-" & r("承运人姓名") & "-" & r("目的地") & " Format(#r("日期")#, "D") " & " .docx" \'指定目标文件 还是不行，不知为啥，可能还是细节没处理好，有些没理解到。
|
| -- 作者：有点蓝 -- 发布时间：2018/10/23 22:47:00 -- Dim fl As String = ProjectPath & "运输合同\\运输合同-" & r("承运人姓名") & "-" & r("目的地") & Format(r("日期"), "D") & ".docx" |