主题：求助！

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

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

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

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

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

老大！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中的列数是不一致的。不知是这个原因。

使用过数据加载功能但，Load(false)是不保存数据的。没有用过Save.

试试

哦，用动态生成查询表，是个最好方法，高枕无忱了。谢老大指点！呵呵！