Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中双击某个表的某行，复制某几列的数据另外一个表中选中的当前行中怎么实现？


  共有5168人关注过本帖树形打印复制链接

主题：窗口中双击某个表的某行，复制某几列的数据另外一个表中选中的当前行中怎么实现？
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		窗口中双击某个表的某行，复制某几列的数据另外一个表中选中的当前行中怎么实现？  发帖心情 Post By：2022/2/23 11:57:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：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

不管我选目标表的哪一行，都把数据拷贝到目标表的第一行，我想让数据复制到目标表中的选中行，应该怎们弄？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/23 14:08:00 [只看该作者]

Dim nr As Row = Tables("目标表").Current

这个代码肯定取得是目标表中的选中行，不可能都是第一行，除非"目标表"名称写错了
 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：2022/2/23 15:45:00 [只看该作者]

好的，我看看是不是目标表的名称错了

 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：2022/2/23 15:51:00 [只看该作者]

选中的第3行，双击上面的表，只有第一行会发生变化。
 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：2022/2/23 15:52:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/23 15:53:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：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("生产碳排放因子")
 回到顶部
帅哥哟，离线，有人找我吗？
hongyaoyu2019
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00 		  发帖心情 Post By：2022/2/23 16:02:00 [只看该作者]

用AddNew，目标表很正常，换成Current就不行了，是不是在目标表中，点取了哪一行，并不代表所选的行就是目标行？

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.13672 秒, 4 次数据查询