老师，非常不好意思还是请教图片导入问题：
在窗口建按钮，按表A 姓名列，将D:\ZP 目录中，分别将文件名包含表A姓名的图片文件，考入表记录其对应的照片列中。
表A 姓名 照片
张三
胡为
齐伟民
：
：
d:\ZP 中，有他们的照片（每个人多张），照片的文件名均包含他们各自的姓名，现在要按表A 姓名列清单，导入其各自的照片。
前两天老师给出如下代码，但还是没有验证成功.
For Each F As String In FileSys.GetFiles("D:\ZP\")
Dim ifo As new FileInfo(f)
Dim name As String = ""
If name.IndexOf("在") Then
name = ifo.name.Split("在")(0)
Else
name = ifo.name.Replace(ifo.Extension, "")
End If
Dim fdr As DataRow = DataTables("表A").Find(" 姓名 = '" & name & "'")
If fdr IsNot Nothing Then
fdr("照片") &= iif(fdr("照片")=Nothing, "", vbcrlf) & ifo.name
End If
Next
请老师再次指点，谢谢！
加好友 
发短信
Post By：2017/6/27 17:20:00 [显示全部帖子]
