以文本方式查看主题

-  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=148361)

--  作者:yfy13338431925
--  发布时间:2020/4/6 16:27:00
--  如何返回完整的存放路径
 在“存放位置”列,用“照片号”列作为照片名,如何能在“存放位置”列返回完整的存放路径


Dim drr As DataRow = e.DataRow
 If drr.IsNull("照片号")  Then
    MessageBox.Show("请先生成照片号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     e.Cancel = True
 Else
     e.FileName = drr("存放位置") & ".tif"
 End If


--  作者:有点蓝
--  发布时间:2020/4/6 16:32:00
--  
e.FileName = drr("照片号") & ".tif"
--  作者:yfy13338431925
--  发布时间:2020/4/6 16:57:00
--  
如何能在“存放位置中”填充包含盘符的全路径呢?
--  作者:有点蓝
--  发布时间:2020/4/6 17:03:00
--  
e.FileName = projectpath & "Attachments\\" &  drr("存放位置") & ".tif"
--  作者:yfy13338431925
--  发布时间:2020/4/6 18:29:00
--  
给出的是文件源路径,我希望的是目标路径
--  作者:有点蓝
--  发布时间:2020/4/6 20:21:00
--  
没看懂,什么是目标路径?截图举例说明
--  作者:yfy13338431925
--  发布时间:2020/4/7 9:17:00
--  
我的意思是把图片文件从f:\\abc\\ 通过图片管理器增加按钮,保存到e:\\photo\\,保存的文件名是通过下面代码生成的
Dim drr As DataRow = e.DataRow
 If drr.IsNull("照片号")  Then
    MessageBox.Show("请先生成照片号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     e.Cancel = True
 Else
     e.FileName = drr("照片号") & ".tif"
 End If
希望在“存放照片“列,填充 e:\\photo\\照片号.tif
目前填充的是f:\\abc\\xxx.tif
[此贴子已经被作者于2020/4/7 9:18:27编辑过]

--  作者:有点蓝
--  发布时间:2020/4/7 9:27:00
--  
e.FileName =  "e:\\photo\\" &  drr("存放位置") & ".tif"