Foxtable(狐表)用户栏目专家坐堂 → 前缀根目录隐藏问题


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

主题:前缀根目录隐藏问题

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
前缀根目录隐藏问题  发帖心情 Post By:2018/10/17 17:08:00 [只看该作者]

请教老师,列属性是图片,上传身份证图片是正反面两个图片,如果一行只上传一个图片,列可以隐藏FTP根目录,只显示文件名和文件类型后缀

如果一行上传多个图片,下面代码就报错,这种情况怎样处理?

 

想实现:一行的图片列上传多个图片文件时,只有一个隐藏根目录的文件名

 

DrawCell

If e.Col.name  = "上传证件_身份证" Then
    e.text = filesys.getname(e.Row("上传证件_身份证"))
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/17 17:44:00 [只看该作者]

If e.Col.name  = "上传证件_身份证" Then
    Dim ls As List(of String) = e.Row.DataRow.Lines("上传证件_身份证")
    For i As Integer = 0 To ls.count-1
        ls(i) = filesys.getname(e.Row("上传证件_身份证"))
    Next
    e.text = String.Join(vbcrlf, ls.ToArray)
End If

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2018/11/2 9:00:00 [只看该作者]

老师指导的代码,报错“非法字符.....”

单元格中只有一个文件没有问题,如果图片列,上传有多个文件形成的字符就报错

例如:图片列的单元格

        /123/图片A.jpg

        /123/图片1.jpg

        ......

麻烦老师再指导指导,谢谢


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/2 9:17:00 [只看该作者]

代码改成

 

If e.Col.name  = "上传证件_身份证" Then
    Dim ls As List(of String) = e.Row.DataRow.Lines("上传证件_身份证")
    For i As Integer = 0 To ls.count-1
        ls(i) = filesys.getname(ls(i))
    Next
    e.text = String.Join(vbcrlf, ls.ToArray)
End If


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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2018/11/2 11:37:00 [只看该作者]

谢谢老师的指导,单元格可以了。另外还请教老师,下面代码是把TEXTBOX的内容分离出来通过messagebox.show单独显示无根目录的文件名称,怎样在一个窗口或另外一个TEXTBOX显示全部转换过的文件名称?

 

下面代码是一个窗口显示一个文件名称,需要多次关闭多个Messagebox窗口

 

With Forms("应急事件").Controls("TextBox10")
    For i As Integer = 0 To .Lines.Length - 1
      Dim str As String
         str = Filesys.GetName(.Lines(i))
        Messagebox.Show(str)
    Next
End With


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/2 13:16:00 [只看该作者]

Dim ary = e.form.Controls("TextBox1").lines
Dim ls As new List(of String)
ls.AddRange(ary)
For i As Integer = 0 To ls.count-1
    ls(i) = Filesys.GetName(ls(i))
Next

msgbox(String.Join(vbcrlf, ls.ToArray))


 回到顶部