以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  选定区域复制  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147555)

--  作者:13968559581
--  发布时间:2020/3/19 10:14:00
--  选定区域复制
你好,我现在窗口里弄了个表控件
   我现在选中一格内容,想把下面下拉区别的内容,复制成这格的内容,怎么操作比较方便
  就是想 实现一个复制填充的功能  ,怎么办
图片点击可在新窗口打开查看此主题相关图片如下:11111.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/3/19 10:45:00
--  

With Tables("订单")
dim r as row = .rows(.TopPosition)
    For 
i as Integer = .TopPosition+1 To .BottomPosition
        .Rows(i)("第一列") = r
("第一列")
    Next
End
 
With