- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于克隆行的代码问题！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47030)
-- 发布时间：2014/3/3 15:48:00
-- 关于克隆行的代码问题！
功能区的克隆行功能一次只能克隆一行，我想一次克隆10行，20行，可以增加这样的功能吗？
-- 发布时间：2014/3/3 15:51:00
--
循环一下
-- 发布时间：2014/3/3 15:52:00
--
自己用代码实现即可. 喜欢怎么克隆就怎么克隆.
例如克隆选中行
for each r as row in tables("XX").GetCheckedRows
dim rr as row = tables("XX").addnew
for each c as col in tables("XX").cols
rr(c.name)=r(c.name)
next
next
-- 发布时间：2014/3/3 15:56:00
--
Bin老师，如果我想一次克隆50行，是不是要点50下克隆。能一下就复制50行吗
-- 发布时间：2014/3/3 16:00:00
--
不用点50次，选定要克隆的50行，按住cltr键，点击其中一行的复选框就行
-- 发布时间：2014/3/3 16:04:00
--
单独一行呢，只想把一行同时复制50行，有什么快捷办法吗！
-- 发布时间：2014/3/3 16:11:00
--
那不是更加简单吗,你变通一下就行了啊.
dim r as row = tables("XX").current
for i as integer=1 to 50
dim rr as row = tables("XX").addnew
for each c as col in tables("XX").cols
rr(c.name)=r(c.name)
next
next
-- 发布时间：2014/3/4 12:41:00
--
此主题相关图片如下：qq图片20140304123802.jpg
克隆行的代码能否改成这样呢!
如图所示：如果我想一次克隆50行编号的信息，新克隆的50行会在最底行从新建50行。
能否只克隆文字到第二到第50行呢。
-- 发布时间：2014/3/4 13:09:00
--
For i As Integer = 1 To 49
Tables("表A").Rows(0).Clone()
Next
-- 发布时间：2014/3/4 13:20:00
--
此主题相关图片如下：qq图片20140304131830.jpg
不行啊，一复制就复制到最下面了。