Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制行时新行的位置能否在所先行的下一行？


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

主题：复制行时新行的位置能否在所先行的下一行？
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8521 威望：0 精华：0 注册：2012/2/9 16:35:00 		复制行时新行的位置能否在所先行的下一行？  发帖心情 Post By：2012/8/25 19:11:00 [只看该作者]

各位老师，

用菜单功能组的克隆行命令复制一行时，新行总是出现在最后一行，能否让新行出现在所选行的下一行，代码怎么写？

 

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/25 20:29:00 [只看该作者]

只能自己写代码

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/25 20:32:00 [只看该作者]

Dim t As Table = Tables("表A")
Dim r,r1 As Row
r = t.Current
t.Select(t.RowSel + 1,t.ColSel)
r1 = t.InsertNew
For Each dc As DataCol In t.DataTable.DataCols
    r1(dc.name) = r(dc.name)
Next

 回到顶部
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8521 威望：0 精华：0 注册：2012/2/9 16:35:00 		  发帖心情 Post By：2012/8/25 22:35:00 [只看该作者]

谢谢czy版主，为了通用，我若把表A改成如下，使用中应该没有其他什么影响吧？

 

Dim t As Table = CurrentTable

Dim r,r1 As Row
r = t.Current
t.Select(t.RowSel + 1,t.ColSel)
r1 = t.InsertNew
For Each dc As DataCol In t.DataTable.DataCols
    r1(dc.name) = r(dc.name)
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询