以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何动态命名保存的报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80205)
--  作者：石四
--  发布时间：2016/1/18 15:02:00
--  [求助]如何动态命名保存的报表

根据日期编制一string，用这个string做为文件名。

 

Dim bh As String = "a" & Format(Date.Today(),"yyMMdd") \'取得编号的8位前缀

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表

If FileSys.DirectoryExists("E:\\MyFolder") Then \'如果目录C:\\MyFolder存在
    doc.SavePDF("E:\\MyFolder\\bh.PDF")
Else
    FileSys.CreateDirectory("E:\\MyFolder")
    doc.SavePDF("E:\\MyFolder\\bh.PDF")
End If

 

结果是：bh.PDF

不是预期的a160118.PDF

 

代码要怎么写才正确？
--  作者：大红袍
--  发布时间：2016/1/18 15:07:00
--  
doc.SavePDF("E:\\MyFolder\\" & bh & ".PDF")
--  作者：石四
--  发布时间：2016/1/18 15:10:00
--  
以下是引用大红袍在2016/1/18 15:07:00的发言：
doc.SavePDF("E:\\MyFolder\\" & bh & ".PDF")

谢红袍神来之手！