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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105383)

--  作者：nbsugu_z
--  发布时间：2017/8/18 10:02:00
--  求助

Dim str3 As String = e.Form.Controls("ComboBox3").Value \'选单位
Dim Book As New XLS.Book(ProjectPath & "Attachments\\"销售" & " & str3 & ".xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\"销售“ & str3 & ".pdf"


以上部分代码，动态合成搞不定。模板名为销售**单位.xls，因为销售是共用名称，只是单位不同，想实现动态合成，提示命令错误。

--  作者：有点甜
--  发布时间：2017/8/18 10:18:00
--
Dim str3 As String = e.Form.Controls("ComboBox3").Value \'选单位
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售" & str3 & ".xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\销售" & str3 & ".pdf"