以文本方式查看主题

-  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=7537)
--  作者：卟离卟弃
--  发布时间：2010/7/7 9:42:00
--  求 克隆多行功能...
如题。。。谁有此功能的代码？如何写？
--  作者：狐狸爸爸
--  发布时间：2010/7/7 10:24:00
--  

克隆选定的多行：

 

Dim t As Table = Currenttable
For i As Integer = t.TopRow To t.BottomRow
    Dim dr As Datarow = t.Datatable.Addnew()
    For Each c As Col In t.Cols
       dr(c.Name) = t.Rows(i)(c.Name)
    Next
Next
--  作者：blackzhu
--  发布时间：2010/7/7 10:38:00
--  
学习?
--  作者：卟离卟弃
--  发布时间：2010/7/7 10:43:00
--  
谢狐爸。为什么狐表程序文件中没有？觉得可以加进吧
--  作者：狐狸爸爸
--  发布时间：2010/7/7 10:58:00
--  
没必要加进去的，个性化的东西，自己设计更好