以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]姓名与照片对应批量插入的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20775)
--  作者：jalifax
--  发布时间：2012/6/19 14:26:00
--  [求助]姓名与照片对应批量插入的问题

首先把照片按名字排列好放在一个文件夹内，如“王余林.jpg”；

文件夹为：D:\\My Documents\\Foxtable\\工装证件照

在表内A列输入“王余林”，B列自动插入该照片。

B列属性设置扩展类型为：图片。

事件代码：

If e.DataCol.Name = "姓名" Then

   For Each File As String In FileSys.GetFiles("D:\\My Documents\\Foxtable\\驾乘人员台账\\工装证件照")

   Next

   e.DataRow("照片") = e.DataRow("姓名") & ".jpg"

End If

 

这段代码不能完成我想要的效果，只能单独一个一个插入照片。因为人员很多，手动输入太麻烦！请高手帮帮忙！
--  作者：jalifax
--  发布时间：2012/6/19 14:32:00
--  

还有个补充：如果姓名完全相同，怎么办？附件里面有！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:foxtable.rar

 

 

比如张强，我们这里就有2个。

[此贴子已经被作者于2012-6-19 14:43:27编辑过]
--  作者：jalifax
--  发布时间：2012/6/19 14:36:00
--  

各位走过的，路过的，不要错过！帮帮忙！
--  作者：jalifax
--  发布时间：2012/6/19 14:41:00
--  
不要沉啊！！狐爸帮帮忙！！！！！
--  作者：jalifax
--  发布时间：2012/6/19 14:49:00
--  
看官们拉一把兄弟
--  作者：程兴刚
--  发布时间：2012/6/19 15:05:00
--  
用身份证号码可避免姓名重复问题！
--  作者：don
--  发布时间：2012/6/19 15:32:00
--  
1.相片宜改为备注列;
2.相片应放在主程序下的[Images]文件夹中:这样代码简洁点,且也直观在列中显示;
  If e.DataCol.Name = "姓名" Then
     If e.DataRow.Isnull("姓名") = False Then
        e.DataRow("照片") =   e.DataRow("姓名") & ".jpg"
    Else
        e.DataRow("照片") = Nothing      
    End If
  End If

3.既然人员很多,为规范管理,应另设人员ID表,以ID区分不同人员
  
[此贴子已经被作者于2012-6-19 15:35:10编辑过]
--  作者：jalifax
--  发布时间：2012/6/19 15:56:00
--  
感谢7楼高手的耐心解答！
 
6楼的兄弟也感谢你！
[此贴子已经被作者于2012-6-19 15:56:19编辑过]