[浏览完整版]
标题：如何用代码向图片列中添加多个图片？(已解决)
1楼
yjk1023 发表于：2011/10/15 8:53:00有一图片列需要做图像比较，首先我把图片以姓名命名保存到一个文件夹中，然后我通过设置列属性，以及根据姓名列自动在图片列添加“姓名.jpg”实现了第一个的图片输入，现在我需要当图片文件夹中有了新的图片（图片名称不固定 无规律）后自动在当前图片列再添加一个图片，
思路：用文件监视器中FileCreated事件 但是代码 不知道如何写
请高手帮忙解决!谢谢！
[此贴子已经被作者于2011-10-18 19:47:39编辑过]
2楼
yjk1023 发表于：2011/10/15 10:51:00这需要2个功能代码，1、获得新照片名称，2、把照片添加到当前图片列
3楼
yjk1023 发表于：2011/10/15 20:38:00顶上来
4楼
狐狸爸爸 发表于：2011/10/17 8:08:00其实很简单，直接向图片列增加内容即可。
dim r as row = tables("xxx").Current
if r.isnull("图片") then
r("图片") = 文件名
else
r("图片") = r("图片") & vbcrlf & 文件名
end if
5楼
yjk1023 发表于：2011/10/17 18:28:00r("图片") = r("图片") & vbcrlf & 文件名这个代码中vbcrlf是什么意思？
6楼
yjk1023 发表于：2011/10/17 18:30:00还有怎么获取新增的图片名称？
7楼
狐狸爸爸 发表于：2011/10/17 20:17:00vbcrlf 表示回车换行符号。
是你编码新增的，怎么会不知道图片文件名称
8楼
yjk1023 发表于：2011/10/17 20:34:00以下是引用yjk1023在2011-10-17 18:28:00的发言：
r("图片") = r("图片") & vbcrlf & 文件名这个代码中vbcrlf是什么意思？
通过实验vbcrlf应该是执行换行
r("图片") = r("图片") & vbcrlf & 文件名这个代码中vbcrlf是什么意思？
9楼
yjk1023 发表于：2011/10/17 21:00:00如果文件夹中的图片命名有规则，向图片列添加图片的问题已经解决。，可以使用一下代码
dim r as row = tables("表A").Current
dim s as string = r(姓名)
if r.isnull("图片") then
r("图片") = s & ".jpg"
else
r("图片") = r("图片") & vbcrlf & s & "2011.jpg"
end if
如果文件夹中的图片命名没有规则，那么现在的问题就转化为如何获取新增图片的名称？
上传个实例，并求获取“照片”文件夹新增图片名称的代码？
[此贴子已经被作者于2011-10-17 21:00:46编辑过]
10楼
yjk1023 发表于：2011/10/17 21:00:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |