以文本方式查看主题

-  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=115975)
--  作者：hbhb
--  发布时间：2018/3/17 18:16:00
--  请教蓝大师
请问大师：如何实现从表中某一行开始，依次向下插入数行？
如：见实例
把表b第一列的
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目38.rar

10行数据，在表a中的开始行下面依次插入
--  作者：有点甜
--  发布时间：2018/3/18 21:46:00
--  
Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
Dim i As Integer = t1.FindRow("第一列 = \'c\'")
For r As Integer = t2.Rows.count-1 To 0 Step -1
    Dim nr As Row = t1.addnew
    nr("第一列") = t2.Rows(r)("第一列")
    nr.Move(i+1)
Next