Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]姓名与照片对应批量插入的问题


  共有7673人关注过本帖树形打印复制链接

主题：[求助]姓名与照片对应批量插入的问题
帅哥哟，离线，有人找我吗？
jalifax
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		[求助]姓名与照片对应批量插入的问题  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		  发帖心情 Post By：2012/6/19 14:32:00 [只看该作者]

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

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

 

 

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

[此贴子已经被作者于2012-6-19 14:43:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jalifax
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		  发帖心情 Post By：2012/6/19 14:36:00 [只看该作者]

各位走过的，路过的，不要错过！帮帮忙！
 回到顶部
帅哥哟，离线，有人找我吗？
jalifax
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		  发帖心情 Post By：2012/6/19 14:41:00 [只看该作者]

不要沉啊！！狐爸帮帮忙！！！！！

 回到顶部
帅哥哟，离线，有人找我吗？
jalifax
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		  发帖心情 Post By：2012/6/19 14:49:00 [只看该作者]

看官们拉一把兄弟

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7253 积分：40736 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/6/19 15:05:00 [只看该作者]

用身份证号码可避免姓名重复问题！

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：101 威望：0 精华：0 注册：2012/6/15 20:41:00 		  发帖心情 Post By：2012/6/19 15:56:00 [只看该作者]

感谢7楼高手的耐心解答！
 
6楼的兄弟也感谢你！
[此贴子已经被作者于2012-6-19 15:56:19编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 5 次数据查询