- 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=48768)
-- 发布时间：2014/4/4 16:10:00
-- 关于动态增加图片的问题。
在 BeforeAttachFile 表事件写以下代码来动态完成，图片增加到指定目录。-- 检查发现OK
Dim PicPath As String = "\\\\192.168.100.88\\北京中远欣隆项目\\ProjectDraws\\"
If Filesys.DirectoryExists(PicPath & CurrentTable.Current("项目编码"))
e.SubFolder = CurrentTable.Current("项目编码")
Else
FileSys.CreateDirectory(PicPath & CurrentTable.Current("项目编码"))
e.SubFolder = CurrentTable.Current("项目编码")
End If
但在数据表里显示的路径,只有后面新增的:子目录和文件名.导致图片路径不够，不能预览。
如何纠正呢，！
-- 发布时间：2014/4/4 16:11:00
--
你应该设置一下列的根目录
-- 发布时间：2014/4/4 16:17:00
--
完整路径：\\\\192.168.100.88\\北京中远欣隆项目\\ProjectDraws\\LX-201312-001\\1.jpg
此主题相关图片如下：111.jpg
开始就这样设置的，没错吧。
-- 发布时间：2014/4/4 16:23:00
--
设置 e.FileName=CurrentTable.Current("项目编码") & "\\" & e.FileName
不要设置SubFolder
-- 发布时间：2014/4/4 16:26:00
--
好，我改下看看。
-- 发布时间：2014/4/4 16:43:00
--
为什么还是不行呢？帮我重新理下：
列设置如下：
此主题相关图片如下：111.jpg
表 BeforeAttachFile 事件代码：
If Filesys.DirectoryExists( CurrentTable.Current("项目编码"))
e.FileName = CurrentTable.Current("项目编码") & "\\" & e.FileName
Else
FileSys.CreateDirectory(CurrentTable.Current("项目编码"))
e.FileName = CurrentTable.Current("项目编码") & "\\" & e.FileName
End If
执行后，图片完成路径为：\\\\192.168.100.88\\北京中远欣隆项目\\ProjectDraws\\LX-201312-001\\1.jpg （对的）
结果仍是一把叉：
此主题相关图片如下：111.jpg
[此贴子已经被作者于2014-4-4 16:44:21编辑过]
-- 发布时间：2014/4/4 16:45:00
--
说个题外话，我有点不明白，事件的e参数是干什么用的，怎么你的事件代码都是CurrentTable和Current？
-- 发布时间：2014/4/4 16:46:00
--
帮助何曾有一个示例，是这样编写事件代码的？
-- 发布时间：2014/4/4 16:51:00
--
e.DataRow("项目编码") 等同 CurrentTable.Current("项目编码") 嘛～
效果到底有什么区别呐？我还真不知道，顺便帮大家普及下。
-- 发布时间：2014/4/4 16:53:00
--
确保你\\\\192.168.100.88\\北京中远欣隆项目\\ProjectDraws\\LX-201312-001\\1.jpg 路径有文件, 有的话不可能不显示哦.核对一下.