以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逻辑列多选跨表复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170320)

--  作者:15666282205
--  发布时间:2021/7/21 17:42:00
--  逻辑列多选跨表复制
老师,我设计了跨表复制,目前只能复制单行数据,我想增加一列逻辑列,选中的多行同时跨表复制,请您指导,以下是复制单行的代码:
Tables("现金日记账").AddNew()
Tables("现金日记账").Current("摘要") = Tables("原材料进货记录").Current("摘要")
Tables("现金日记账").Current("经办人") = Tables("原材料进货记录").Current("经办人")
[此贴子已经被作者于2021/7/21 17:42:41编辑过]

--  作者:有点蓝
--  发布时间:2021/7/22 8:38:00
--  

dim r as row
for each dr as datarow = dataTables(""原材料进货记录").select("逻辑列=true")
r = Tables("现金日记账").AddNew()
r("摘要") = dr("摘要")
r("经办人") = dr("经办人")
next

--  作者:15666282205
--  发布时间:2021/7/22 9:45:00
--  
老师,提示第二行语法错误

for each dr as datarow = dataTables(""原材料进货记录").select("逻辑列=true")


--  作者:有点蓝
--  发布时间:2021/7/22 9:49:00
--  
提示什么错误?逻辑列改为自己的列名
--  作者:15666282205
--  发布时间:2021/7/22 9:59:00
--  
老师,逻辑列我已经改了,提示:
编译错误,语法错误。然后是后面的这行代码

--  作者:有点蓝
--  发布时间:2021/7/22 10:10:00
--  
for each dr as datarow in dataTables("原材料进货记录").select("逻辑列=true")
--  作者:15666282205
--  发布时间:2021/7/22 10:23:00
--  
ok,thanks!