主题：移动记录

 MainTable = Tables("图书目录")
                Tables("图书目录").CloseFilterTree
                If user.IsRole("图书管理员") = True Then
                    Dim Cols1() As String = {"类别","图书编号","书名","作者","出版地","出版社","册数","定价"}
                    Dim Cols2() As String =  {"类别","编号","书名","作者","出版地","出版社","数量","单价"}
                    For Each dr1 As Row In Tables("图书目录").GetCheckedRows
                        Dim dr2 As DataRow = DataTables("核销图书").AddNew()
                        For i As Integer = 0 To Cols1.Length -1
                            dr2(Cols2(i)) = dr1(Cols1(i))
                        Next
                        dr1.delete
                    Next
                Else
                    MessageBox.Show("需要权限。")
                End If

 

想把“图书目录”表中的逻辑列没有勾选的记录移动到“核销图书”表中怎么改呢？

就是逻辑列，列名是“核销”

请问如果是选中的记录代码又怎么改呢？

老师，不好意思，是我没说清楚。我是说选定的记录，不是逻辑列中勾选的记录。谢谢！