以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制粘贴问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118536)
--  作者：qaz17909
--  发布时间：2018/5/5 10:04:00
--  复制粘贴问题
在窗口的sqltable中，选中一行复制其中该行指定的列内容，然后显示复选框，勾选要粘贴的多个行执行粘贴，请问怎么操作。
--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/5/5 11:49:00
--  
可否再具体一点，全局变量那边怎么设置的，复制和粘贴的控件代码怎么写的，例如我是表A中的姓名列和性别列要复制粘贴
--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/5/5 14:01:00
--  
搞定了，谢谢