参考:
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