以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片导入还是失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102918)
--  作者：HJG_HB950207
--  发布时间：2017/6/27 17:20:00
--  图片导入还是失败
老师，非常不好意思还是请教图片导入问题：

       在窗口建按钮，按表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

     请老师再次指点，谢谢！
--  作者：有点色
--  发布时间：2017/6/27 17:43:00
--  

代码没问题，测试也没问题。

 

照片列肯定填入了数据。如果图片不显示，你列属性的存放路径没设置成 d:\\zp
--  作者：HJG_HB950207
--  发布时间：2017/6/27 17:50:00
--  
谢谢老师！