以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加行新建文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125308)
--  作者：yangwenghd
--  发布时间：2018/9/25 23:30:00
--  增加行新建文件夹
Dim path As String = ProjectPath & "物司文件\\" & e.Tables("物司档案").current ("档案_物司编号").Text & "\\"
If FileSys.DirectoryExists(path) = False
    filesys.CreateDirectory(path)
End If  \'只是添加文件夹

能帮忙看看这个吗?就是在新建列后同时在指定的路径建一个以档案_物司编号列字符的文件夹，感谢给安心
--  作者：有点甜
--  发布时间：2018/9/26 8:55:00
--  

datacolchanged事件

 

If e.DataCol.name = "档案_物司编号" Then   
    Dim path As String = ProjectPath & "物司文件\\" & e.DataRow("档案_物司编号").Text & "\\"
    If FileSys.DirectoryExists(path) = False
        filesys.CreateDirectory(path)
    End If  \'只是添加文件夹
End If