专家坐堂-[求助]表间的行移动Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表间的行移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72753)

--  作者：leopain
--  发布时间：2015/8/5 16:49:00
--  [求助]表间的行移动
请问一个按钮的代码应该怎么写才能把当前选定行从表A移动到表B呢?

--  作者：大红袍
--  发布时间：2015/8/5 16:53:00
--
With Tables("表A")
    For i As Integer = .BottomPosition To .TopPosition Step -1
        Dim nr As Row = Tables("表B").AddNew
        nr("第一列") = .Rows(i)("第一列")

        .Rows(i).Delete
    Next
End With