Foxtable(狐表)用户栏目专家坐堂 → [求助]当前层级目录树节点文件夹里面添加附件或照片


  共有5798人关注过本帖树形打印复制链接

主题:[求助]当前层级目录树节点文件夹里面添加附件或照片

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 13:49:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow
If dr.IsNull("盘符") Then
    msgbox("盘符 不能为空")
    e.cancel = True
Else
    Select Case e.DataCol.Name
        Case "图片"
            e.SubFolder = dr("盘符") & dr("zfwl")
            '取消了这列

    End Select
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 15:52:00 [显示全部帖子]

先判断文件夹是否存在,不存在的先创建:http://www.foxtable.com/webhelp/topics/0331.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 16:15:00 [显示全部帖子]

调试

Dim trv  = e.Form.Controls("LayersTree1").basecontrol
Dim p As String = "\(\w+(?=\))\)"
Dim str = System.Text.RegularExpressions.Regex.Replace(trv.Selectednode.fullpath, p ,"")
str = e.Form.Controls("ComboBox1").text & str

msgbox(str)
'

If FileSys.DirectoryExists(str) = False Then
    If MessageBox.Show("要新建这个 文件夹 吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
msgbox(1)
        FileSys.CreateDirectory(str)
msgbox(2)
        Dim Proc As New Process '定义一个新的Process
        Proc.File = str
        
        Proc.File = "D:\11_SF_SOFT\21_az_install\21_FA_fast\11_Tc\Totalcmd.exe"
        Proc.Arguments = str  '指定命令行参数
        
        Proc.Start()
msgbox(3)
    End  If
Else
msgbox(4)
    Dim Proc As New Process '定义一个新的Process
    Proc.File = str
    
    Proc.File = "D:\11_SF_SOFT\21_az_install\21_FA_fast\11_Tc\Totalcmd.exe" 
    Proc.Arguments = str  '指定命令行参数
    
    Proc.Start()
    msgbox(5)
    

    
End  If
msgbox(6)
    Dim dr As DataRow = e.DataRow
    'If dr.IsNull("盘符") Then
    'msgbox("盘符 不能为空")
    'e.cancel = True
    'Else
    Select Case e.DataCol.Name
        Case "图片"
msgbox(dr("盘符") & dr("zfwl"))
            e.SubFolder = dr("盘符") & dr("zfwl")
            '取消了这列
            
    End Select
    'End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 16:49:00 [显示全部帖子]

请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 17:19:00 [显示全部帖子]

e.SubFolder 不能指定完整路径,只能指定子目录,就是Attachments里的子目录名称。

要设置保存到不同的绝对路径,只能这样
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:aa2.zip



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 20:40:00 [显示全部帖子]

多层子文件夹的获取改为从目录树获取即可

10楼的项目肯定不是在项目里面Attachments里面

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 23:19:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:aa-3new.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/26 9:20:00 [显示全部帖子]

我测试没有问题。不行就把currentchanged事件代码放到BeforeSelChange事件试试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/26 10:09:00 [显示全部帖子]

通过层级编码来获取路径吧

比如1.1.1,那么得到1、1.1、1.1.1这3个编码,使用find查询得到这3个编码的名称,然后拼接为正确的文件夹路径

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112364 积分:572076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/26 10:45:00 [显示全部帖子]

Dim s As String = "2.2.1" '实际使用改为获取单元格数据即可,比如:tables("表A").current("第一列")
Dim ss As String
Dim sr() As String = s.split(".")
For Each s1 As String In sr
    ss = ss & "." & s1
    ss = ss.Trim(".")
    Output.Show(ss)
Next 


 回到顶部
总数 12 1 2 下一页