- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口中双击某个表的某行，复制某几列的数据另外一个表中选中的当前行中怎么实现？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175189)
-- 发布时间：2022/2/23 11:57:00
-- 窗口中双击某个表的某行，复制某几列的数据另外一个表中选中的当前行中怎么实现？
-- 发布时间：2022/2/23 12:25:00
--
表格双击事件
e.cancel=true
dim r as row = tables("其它表").current
if r isnot nothing then
r("第一列") = e.row("第一列")
r("第2列") = e.row("第2列")
end if
-- 发布时间：2022/2/23 13:06:00
--
好的，谢谢老师，我在论坛找到了一个答案，可以实现增加行同时读取数据；
Dim nr As Row = Tables("订单").AddNew
nr("建材类型") = e.Row("建材类型")
nr("单位") = e.Row("单位")
nr("生产碳排放因子") = e.Row("生产碳排放因子")
还有一个问题要问一下，如果把AddNew换成当前行，我试了一下，如果用
Dim nr As Row = Tables("订单").Current
不管我选目标表的哪一行，都把数据拷贝到目标表的第一行，我想让数据复制到目标表中的选中行，应该怎们弄？
-- 发布时间：2022/2/23 14:08:00
--
Dim nr As Row = Tables("目标表").Current
这个代码肯定取得是目标表中的选中行，不可能都是第一行，除非"目标表"名称写错了
-- 发布时间：2022/2/23 15:45:00
--
好的，我看看是不是目标表的名称错了
-- 发布时间：2022/2/23 15:51:00
--
选中的第3行，双击上面的表，只有第一行会发生变化。
-- 发布时间：2022/2/23 15:52:00
--
-- 发布时间：2022/2/23 15:53:00
--
http://www.foxtable.com/webhelp/topics/1906.htm
-- 发布时间：2022/2/23 15:54:00
--
\'Dim nr As Row = Tables("建筑碳排放生产运输").Addnew
Dim nr As Row = Tables("建筑碳排放生产运输").Current
nr("建材类型") = e.Row("建材类型")
nr("单位") = e.Row("单位")
nr("生产碳排放因子") = e.Row("生产碳排放因子")
-- 发布时间：2022/2/23 16:02:00
--
用AddNew，目标表很正常，换成Current就不行了，是不是在目标表中，点取了哪一行，并不代表所选的行就是目标行？