以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制行时新行的位置能否在所先行的下一行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22862)
--  作者：zpx_2012
--  发布时间：2012/8/25 19:11:00
--  复制行时新行的位置能否在所先行的下一行？

各位老师，

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

 

谢谢！
--  作者：czy
--  发布时间：2012/8/25 20:29:00
--  
只能自己写代码
--  作者：czy
--  发布时间：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
--  发布时间：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