标题：求助！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

如何实现此功能，望各位帮忙，指教！多谢了！

本人目的：>表示表A中选中行移到表B中，<表示表B中当前行移动到表A中，>>表示表A中所有行移动到表B中，<<同理。但表A中的数据不能被删除或变动。

> =

Dim dr1 As Row =  Tables("表A").Current
Dim dr2 As Row = Tables("表B").Addnew()
For Each dc As Col in Tables("表B").Cols
    dr2(dc.name) = dr1(dc.name)
Next
Tables("表A").Current.Delete

< =

Dim dr1 As Row =  Tables("表B").Current
Dim dr2 As Row = Tables("表A").Addnew()
For Each dc As Col in Tables("表A").Cols
    dr2(dc.name) = dr1(dc.name)
Next
Tables("表B").Current.Delete

后两个不删除原数据，而且是反复的，那不是数据在反复增加中？

复制选定行：

With Tables("表A")
    For i As Integer = .BottomRow To .TopRow Step -1
        Dim r1 As Row = .Rows(i)
        Dim r2 As Row = Tables("表B").AddNew
        For Each c As Col In .Cols
            r2(c.name) = r1(c.name)
        Next
        r1.Delete()
    Next
End With



复制所有行:

With Tables("表A")
    For i As Integer = .Rows.Count -1 To 0 Step -1
        Dim r1 As Row = .Rows(i)
        Dim r2 As Row = Tables("表B").AddNew
        For Each c As Col In .Cols
            r2(c.name) = r1(c.name)
        Next
        r1.Delete
    Next
End With

Tables("表B").Current.Delete 这个不是删除功能的，我就是按上面代码编的。出现了原有数据发生了变化，但没有找到原因。所以才请教各位！不知说法是否有误？

我跑在八婺后面了。

看4楼

老大！Tables("表B").Current.Delete

会影响原有数据的吧。

那就别用这行代码啊。

本人本想利用显示行或隐藏行来达到以上效果的。但老大说，没有显示第几行的功能，所以才用过，With Tables("表A")
    For i As Integer = .Rows.Count -1 To 0 Step -1
        Dim r1 As Row = .Rows(i)
        Dim r2 As Row = Tables("表B").AddNew
        For Each c As Col In .Cols
            r2(c.name) = r1(c.name)
        Next
        r1.Delete
    Next
End With
但发现原有数据不知为啥，发生了改变。其中表A中的列数与表B中的列数是不一致的。不知是这个原因。