有2个表 1.表A，有3列：部门，姓名，工作照，其中：列工作照为多图片文件，文件存放在系统的【照片目录】。
2.表B, 有3列：部门，姓名，工作照，其中：工作照为图片文件，但每列只放一个图片文件。
请将老师：如何用代码将表A的记录过度到表B中，使表B形成一张照片一条记录。
参考：
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