以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样自动匹配图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112706)

--  作者:wjf5288
--  发布时间:2018/1/1 11:18:00
--  怎样自动匹配图片
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:型材资料.table


--  作者:y2287958
--  发布时间:2018/1/1 13:39:00
--  
不知所指?
--  作者:有点甜
--  发布时间:2018/1/1 16:29:00
--  

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

 

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


--  作者:wjf5288
--  发布时间:2018/1/2 11:13:00
--  
主要问题是
图片点击可在新窗口打开查看此主题相关图片如下:型材资料.png
图片点击可在新窗口打开查看
怎样输入型材型号后在图片列中自动显示该型材型号匹配的图片!不用每次手工输入型号,而且必须要加图片格式JPG!谢谢!我是新手,才刚刚学习!
--  作者:aduydgd
--  发布时间:2018/1/2 11:22:00
--  
本地文件一对多不好办啊,一对一就好办
--  作者:有点甜
--  发布时间: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


--  作者:BATASC750206
--  发布时间:2018/12/10 8:29:00
--  

生成一对一的图片代码怎么写?

 


--  作者:有点甜
--  发布时间:2018/12/10 8:39:00
--  
同样可以用6楼的代码处理的。请看懂代码和认真测试。
--  作者:BATASC750206
--  发布时间:2018/12/10 8:55:00
--  

生成是一对多的图片,请问要如何做修改?

如:产品编号:JA-725   图片有:JA-725   JA-725-A  JA-725-B等,利用6楼的代码,会把所有包含:JA-725的所有图片全部自动生成!而我要生成的只是:JA-725的图片


--  作者:有点甜
--  发布时间: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