以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174661)
--  作者：nxqtxwz
--  发布时间：2022/1/25 16:26:00
--  移动记录

 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

 

想把“图书目录”表中的逻辑列没有勾选的记录移动到“核销图书”表中怎么改呢？
--  作者：有点蓝
--  发布时间：2022/1/25 16:45:00
--  
到底是逻辑列？还是行号的复选框？
--  作者：nxqtxwz
--  发布时间：2022/1/25 16:58:00
--  

就是逻辑列，列名是“核销”
--  作者：有点蓝
--  发布时间：2022/1/25 17:00:00
--  
For Each dr1 As Row In Tables("图书目录").GetCheckedRows
改为
For Each dr1 As dataRow In dataTables("图书目录").select("核销=false")
……

最后加上删除代码：
dataTables("图书目录").deletefor("核销=false")
--  作者：nxqtxwz
--  发布时间：2022/1/26 9:20:00
--  
请问如果是选中的记录代码又怎么改呢？
--  作者：有点蓝
--  发布时间：2022/1/26 9:25:00
--  
......dataTables("图书目录").select("核销=true")
--  作者：nxqtxwz
--  发布时间：2022/1/26 9:51:00
--  
老师，不好意思，是我没说清楚。我是说选定的记录，不是逻辑列中勾选的记录。谢谢！
--  作者：有点蓝
--  发布时间：2022/1/26 10:13:00
--  
http://www.foxtable.com/webhelp/topics/1597.htm