主题：怎样自动匹配图片

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:型材资料.table

不知所指？

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

 

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

主要问题是
此主题相关图片如下：型材资料.png

怎样输入型材型号后在图片列中自动显示该型材型号匹配的图片！不用每次手工输入型号，而且必须要加图片格式JPG!谢谢!我是新手，才刚刚学习！

本地文件一对多不好办啊，一对一就好办

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

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

 

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

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

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

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