Foxtable(狐表)用户栏目专家坐堂 → 复制粘贴问题


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

主题:复制粘贴问题

帅哥哟,离线,有人找我吗?
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:777 积分:8862 威望:0 精华:0 注册:2017/1/26 14:38:00
复制粘贴问题  发帖心情 Post By:2018/5/5 10:04:00 [只看该作者]

在窗口的sqltable中,选中一行复制其中该行指定的列内容,然后显示复选框,勾选要粘贴的多个行执行粘贴,请问怎么操作。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/5 10:40:00 [只看该作者]

增加复制和粘贴2个按钮

复制按钮把选择的行和列记录到全局变量中,比如
vars("行")= tables("表A").current
vars("列1")= tables("表A").LeftCol


Dim r1 As Row = vars("行")
For Each r As Row In Tables("员工").GetCheckedRows
    r(vars("列1")) = r1(vars("列1"))
Next

 回到顶部
帅哥哟,离线,有人找我吗?
qaz17909
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:777 积分:8862 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2018/5/5 11:49:00 [只看该作者]

可否再具体一点,全局变量那边怎么设置的,复制和粘贴的控件代码怎么写的,例如我是表A中的姓名列和性别列要复制粘贴

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/5 13:45:00 [只看该作者]

复制按钮把选择的行和列记录到全局变量中,比如
vars("行")= tables("表A").current


Dim r1 As Row = vars("行")
For Each r As Row In Tables("员工").GetCheckedRows
    r("姓名") = r1("姓名")
    r("性别") = r1("性别")
Next

 回到顶部
帅哥哟,离线,有人找我吗?
qaz17909
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:777 积分:8862 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2018/5/5 14:01:00 [只看该作者]

搞定了,谢谢

 回到顶部