主题：[求助]如何把多值列中选中的项目依次写入到其它表中

if e.datacol.name="收文部门"  andalso e.datarow.isnull("收文部门")=false then

    for each s as string in e.datarow("收文部门").split(",")

         dim r as row = tables("文件表.文件收发").addnew

         r("文件名称")=e.datarow("文件名称")

         r("部门")=s

    next

end if