以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]路径问题~~~  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90709)

--  作者:沦落深蓝
--  发布时间:2016/9/20 11:35:00
--  [求助]路径问题~~~

老师,在整理文件时把路径位置改了一下,结果测试后发现报表输出的时候路径没问题,但是在引用该路径的时候却一直说找不到文件,这是怎么回事呢,路径应该没错啊~~~请老师解惑图片点击可在新窗口打开查看

 

 

1、报表输出代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\\机械管理使用情况表.xls")
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath & "Reports" & "\\" & "机械管理记录" & "\\" & d1.year & "\\" & dh.value & "机械管理使用情况表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

 

修改路径前双向都没问题,修改后报表输出位置正确,但是引用时找不到文件

 

 

 

2、引用时代码

Dim d1 As Date = Date.Today
Dim dh As WinForm.TextBox =e.Form.Controls("TB代号")

 

’修改后路径

Dim fl As String =ProjectPath & "Reports" & "\\" & "机械管理记录" & "\\" & d1.year & "\\" & dh.value & "机械管理使用情况表.xls"

 

\'修改前   Dim fl As String = ProjectPath & d1.year & "\\" & Tables("机械管理表").Current("装备代号") & "机械管理使用情况表.xls"

If FileSys.FileExists(fl)= False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("文件还未生成,是否新建?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("请开始新建文件","提示")
    Else
        Forms("机械管理记录窗口").Close
    End If
End If
Dim  Book As New XLS.Book(fl)


--  作者:有点蓝
--  发布时间:2016/9/20 12:05:00
--  
msgbox(fl)弹出看看路径
--  作者:沦落深蓝
--  发布时间:2016/9/20 12:33:00
--  
我明白了~~~~刚开始时dh.value是空的,所以找不到文件,又犯同样的错误了~~~谢谢老师