主题：存储路径自动转移并删除原来的目录

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

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

 比如，这样写，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

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

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