以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  相对路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123693)
--  作者：susu312
--  发布时间：2018/8/21 13:03:00
--  相对路径

If Tables("person").Current Is Nothing Then
     Return
End If
Dim dr As DataRow = Tables("person").Current.DataRow
Dim fl As String =   "C:\\Users\\sujia\\Documents\\Foxtable项目\\retireMg\\Images\\" &  dr("_Identify") &  ".JPG"
If dr.SQLLoadFile("photo",fl) Then  \'如果提取文件成功
    Dim Proc As New Process  \'打开文件
    Proc.File = fl
    \'Proc.Start()
Else
    Messagebox.Show("照片提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End  If

 

老师，我如何把红色的那个写成相对路径，因为项目发布后，肯定不能用本地路径
--  作者：有点蓝
--  发布时间：2018/8/21 13:52:00
--  
参考：http://www.foxtable.com/webhelp/scr/1439.htm
--  作者：susu312
--  发布时间：2018/8/21 14:41:00
--  
以下是引用有点蓝在2018/8/21 13:52:00的发言：
参考：http://www.foxtable.com/webhelp/scr/1439.htm

谢谢谢谢老师