以文本方式查看主题

-  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=51253)
--  作者：yifan3429
--  发布时间：2014/5/22 19:07:00
--  存储路径自动转移并删除原来的目录
e.SubFolder = dr("目录标题") & "\\" & dr("国籍") & "\\" &dr("企业_名称") & "\\" & format(dr("日期").Today,"yyyy-MM-dd") & "\\3.拍摄书籍"

 

 

如果其中的一个列内容被修改  比如  国籍  随之依据新的字段建立新的存贮路径   老的路径  删除 怎么做到呢   求助 

--  作者：有点甜
--  发布时间：2014/5/22 19:09:00
--  

 修改对应列的时候，重命名组合的路径

 

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

 
--  作者：yifan3429
--  发布时间：2014/5/22 20:05:00
--  
以下是引用有点甜在2014-5-22 19:09:00的发言：

 修改对应列的时候，重命名组合的路径

 

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

 

这个我看过啦   只是不知道怎么应用  没有实例参考，对我来说有点难。
--  作者：有点甜
--  发布时间：2014/5/22 20:15:00
--  

 比如，这样写，datacolchanged事件

 

Select Case e.DataCol.name
    Case "目录标题"
        Dim path As String = ProjectPath & "Attachments/"
        FileSys.RenameDirectory(path & e.oldvalue, path & e.newvalue)
    Case "企业_名称"
        Dim path As String = ProjectPath & "Attachments/" & dr("目录标题") & "\\" & dr("国籍") & "\\"
        FileSys.RenameDirectory(path & e.oldvalue, path & e.newvalue)
End Select
--  作者：有点甜
--  发布时间：2014/5/22 20:20:00
--  

如果还好改图片列的内容，就这样改

 

Select Case e.DataCol.name
    Case "目录标题"
        Dim pname As String = ""
        Dim path As String = ProjectPath & "Attachments/"
        FileSys.RenameDirectory(path & e.oldvalue, path & e.newvalue)
        dr("图片") = dr("图片").replace(pname & e.oldvalue, pname & e.newvalue)
    Case "企业_名称"
        Dim pname As String = dr("目录标题") & "\\" & dr("国籍") & "\\"
        Dim path As String = ProjectPath & "Attachments/" & pname
        FileSys.RenameDirectory(path & e.oldvalue, path & e.newvalue)
        dr("图片") = dr("图片").replace(pname & e.oldvalue, pname & e.newvalue)
End Select