以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片列的存放与來源目录问题-已解決  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33850)

--  作者:realredred
--  发布时间:2013/5/25 18:38:00
--  图片列的存放与來源目录问题-已解決

已设置了图片型备注列

现在设好了而存放和來源目录为 \\\\192.168.0.228\\img\\工艺图(目录地址是局域网上的地址)

但因为存放图片的地方有3个(工艺图,腊模,货版)

只能键入一个目录地址

如何做到的是,先从工艺图目录取图,如沒有则在腊模取图,再沒有则在货版取图?

局域网地址是:

\\\\192.168.0.228\\img\\工艺图

\\\\192.168.0.228\\img\\腊模

\\\\192.168.0.228\\img\\货版

[此贴子已经被作者于2013-7-21 12:39:47编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/5/27 8:47:00
--  

没有看明白你的问题,你研究一下以下事件,看看是否有帮助:

 

BeforeAddFile 在图片列或文件管理器中单击“增加”按钮的时候执行。
BeforeAttachFile 在向在文件型、多文件型、以及图片型列中添加文件的时候执行
BeforeOpenFile 在图片列或文件管理器中单击“打开”按钮的时候执行。
BeforeDeleteFile 在文件或图片管理器,删除文件或图片的时候执行

 


--  作者:realredred
--  发布时间:2013/5/29 0:46:00
--  
就是说,在图片列的图片名
直接在哪里提取图片出來
比如说,图片名是 " PIC.JPG "
而存放PIC.JPG 的地方,会在三个文件夾中的其中之一
能否做到在这三个文件夾自动检测並显示出來

--  作者:狐狸爸爸
--  发布时间:2013/5/29 8:35:00
--  

用这个事件:
http://www.foxtable.com/help/topics/2637.htm


 
可以很好地解决你的问题:
 
If e.DataCol.Name = "文件列名称" Then
    Dim fn1 As String = "\\\\192.168.0.228\\img\\工艺图\\" & FileSys.GetName(e.Filename) \'新的文件名和路径
    Dim fn2 As String = "\\\\192.168.0.228\\img\\蜡模\\" & FileSys.GetName(e.Filename) \'新的文件名和路径
    Dim fn3 As String = "\\\\192.168.0.228\\img\\货版\\" & FileSys.GetName(e.Filename) \'新的文件名和路径
    If filesys.FileExists(fn1) Then
        e.FileName = fn1
    ElseIf filesys.FileExists(fn2) Then
        e.FileName = fn2
    ElseIf filesys.FileExists(fn3) Then
        e.FileName = fn3
    End If
End If


--  作者:realredred
--  发布时间:2013/5/29 20:13:00
--  

这个方式是要透过"打开" 來达到自动搜寻

並不能做到自动在备注列窗口显示,不过也能达到某程度的方便.感谢狐爸的指引图片点击可在新窗口打开查看