主题：怎样自动匹配图片

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

 

2、你的图片名都是用第一列+.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楼的代码处理的。请看懂代码和认真测试。

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

 

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