以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选定区域复制  (http://foxtable.net/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