以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  存储路径自动转移并删除原来的目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51253)
--  作者：有点甜
--  发布时间：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