其实很简单，直接向图片列增加内容即可。
dim r as row = tables("xxx").Current
if r.isnull("图片") then
r("图片") = 文件名
else
r("图片") = r("图片") & vbcrlf & 文件名
end if
加好友 
发短信
Post By：2011/10/17 8:08:00 [只看该作者]
