以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]Bin大师：您再帮我瞧瞧您帮我改的这段代码！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66466)
--  作者：liuxianjie1980
--  发布时间：2015/4/7 17:02:00
--  [讨论]Bin大师：您再帮我瞧瞧您帮我改的这段代码！！！

With Tables("项目信息库").Current \'引用当前行
    If .IsNull("项目大计划") = False Then \'如果已经存在文件
        Dim Proc As New Process
        Proc.File = "存放路径\\" & Tables("项目信息库").Current("项目大计划") 
        Proc.Start
    Else
       MessageBox.show("该项目未上传项目大计划!","提示")
    End If
End With

 

调试结果显示：系统找不到指定的文件！！！ 是路径有问题吗？
--  作者：Bin
--  发布时间：2015/4/7 17:06:00
--  
路径显然不对  "存放路径\\"  意思是让你填写存放路径,而不是盲目复制  存放路径 这四个字
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=66447  
--  作者：狐狸爸爸
--  发布时间：2015/4/7 17:10:00
--  

如果你指定了存放路径：

With Tables("项目信息库").Current \'引用当前行
    If .IsNull("项目大计划") = False Then \'如果已经存在文件
        Dim Proc As New Process
        Proc.File =  DataTables("项目信息库").DataCols("项目大计划").DefaultFolder &  "\\" & Tables("项目信息库").Current("项目大计划") 
        Proc.Start
    Else
       MessageBox.show("该项目未上传项目大计划!","提示")
    End If
End With

 

参考：

http://www.foxtable.com/help/topics/2043.htm

 

如果没有设置存放路径：

With Tables("项目信息库").Current \'引用当前行
    If .IsNull("项目大计划") = False Then \'如果已经存在文件
        Dim Proc As New Process
        Proc.File =  projectpath &  "Attachments\\" & Tables("项目信息库").Current("项目大计划") 
        Proc.Start
    Else
       MessageBox.show("该项目未上传项目大计划!","提示")
    End If
End With

[此贴子已经被作者于2015/4/7 17:10:22编辑过]