以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么引用出错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69993)
--  作者：zgjmost
--  发布时间：2015/6/14 12:04:00
--  为什么引用出错？

Dim fl As String = ProjectPath & "Reports\\& drs(0)("日期") & drs(0)("起始时间") & drs(0)("教室") & \'签到单\'.xls"

这句话为什么引用报如下错？

 

 



此主题相关图片如下：qq截图20150614120426.png
按此在新窗口浏览图片

 

完整代码如下：

 

For Each ary() As String In DataTables("考试数据表").GetValues("日期|起始时间|教室")
    Dim drs As List(Of DataRow) = DataTables("考试数据表").Select("日期 = \'" & ary(0) & "\' and 起始时间 = \'" & ary(1) & "\' and 教室 = \'" & ary(2) & "\'", "保密号,试卷号,座位号")

Vars("qdd1") = drs(0)("日期")
Vars("qdd2") = drs(0)("起始时间")
Vars("qdd3") = drs(0)("教室")
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\签到单.xls")
Dim fl As String = ProjectPath & "Reports\\& drs(0)("日期") & drs(0)("起始时间") & drs(0)("教室") & \'签到单\'.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

Next


 
--  作者：游
--  发布时间：2015/6/14 12:09:00
--  
少引号

Dim fl As String = ProjectPath & "Reports\\" & drs(0)("日期") & drs(0)("起始时间") & drs(0)("教室") & “签到单.xls"
--  作者：zgjmost
--  发布时间：2015/6/14 12:17:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150614121747.png
图片点击可在新窗口打开查看

我这个代码不对！
--  作者：游
--  发布时间：2015/6/14 12:21:00
--  
如果你的每一层都是文件夹，要加\\的


Dim fl As String = ProjectPath & "Reports\\" & drs(0)("日期") & ”\\“  & drs(0)("起始时间") &  ”\\“  &  drs(0)("教室") & “\\签到单.xls"
--  作者：zgjmost
--  发布时间：2015/6/14 12:31:00
--  

我是想用日期起始时间教室来命名生成的文件名，怎么引用？

 
--  作者：大红袍
--  发布时间：2015/6/14 12:49:00
--  
Dim fl As String = ProjectPath & "Reports\\" & drs(0)("日期") & " "  & drs(0)("起始时间").Replace(":", "不能是特殊字符") &  " "  &  drs(0)("教室") & "\\签到单.xls"