以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多文件图片列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194614)
--  作者：HJG_HB950207
--  发布时间：2024/12/27 18:49:00
--  多文件图片列问题
有2个表 1.表A，有3列：部门，姓名，工作照，其中：列工作照为多图片文件，文件存放在系统的【照片目录】。
            2.表B, 有3列：部门，姓名，工作照，其中：工作照为图片文件，但每列只放一个图片文件。
      请将老师：如何用代码将表A的记录过度到表B中，使表B形成一张照片一条记录。
--  作者：有点蓝
--  发布时间：2024/12/28 8:51:00
--  
参考：http://www.foxtable.com/webhelp/topics/2717.htm

遍历表A所有行，再遍历文件列，然后新增表B行填充，大概

dim nr as row
dim t as table = Tables("表B")
For Each r As Row In Tables("表A").Rows
   if r.isnull("工作照") then
nr = t.addnew
nr("部门") = r("部门") 
nr("姓名") = r("姓名") 
else
for each s as string in r.datarow.lines("工作照")
nr = t.addnew
nr("部门") = r("部门") 
nr("姓名") = r("姓名") 
nr("工作照") = s
next
end if
Next