Foxtable(狐表)用户栏目专家坐堂 → 怎样自动匹配图片


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

主题:怎样自动匹配图片

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/1 16:29:00 [显示全部帖子]

1、你的图片放在哪个文件夹里面?

 

2、你的图片名都是用第一列+.jpg构成的吗?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/2 12:47:00 [显示全部帖子]

datacolchanged事件

 

If e.DataCol.name = "型材型号" Then
    Dim ls As new List(Of String)
    For Each f As String In FileSys.GetFiles(ProjectPath & "attachments/")
        If FileSys.GetName(f).Contains(e.DataRow("型材型号")) Then
            ls.Add(FileSys.GetName(f))
        End If
    Next
    e.DataRow.lines("图片") = ls
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/10 8:39:00 [显示全部帖子]

同样可以用6楼的代码处理的。请看懂代码和认真测试。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/10 9:20:00 [显示全部帖子]

If e.DataCol.name = "型材型号" Then
    Dim ls As new List(Of String)
    For Each f As String In FileSys.GetFiles(ProjectPath & "attachments/")
        If FileSys.GetName(f) = e.DataRow("型材型号") & ".jpg" Then
            ls.Add(FileSys.GetName(f))
            Exit For
        End If
    Next
    e.DataRow.lines("图片") = ls
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/10 11:40:00 [显示全部帖子]

以下是引用BATASC750206在2018/12/10 11:12:00的发言:

谢谢!

       请问我的表格列标题无缘无故被变更两行

 

试用版试用期到了,就会这样。你可以购买正版,就不会有此问题了。

 


 回到顶部