以文本方式查看主题

-  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编辑过]