以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把多值列中选中的项目依次写入到其它表中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51833)

--  作者:黄训良
--  发布时间:2014/6/4 9:45:00
--  [求助]如何把多值列中选中的项目依次写入到其它表中

如何把多值列中选中的项目依次写入到其它表中,具体情况见下图

 


图片点击可在新窗口打开查看此主题相关图片如下:多值列.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/6/4 9:52:00
--  
DataColChanged事件

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

--  作者:黄训良
--  发布时间:2014/6/4 10:23:00
--  
感谢!