主题：复选框的操作问题

请问：在一个表里设置了逻辑列（比如“已付款”），想设置一个按钮，当此行被选中时，点击窗口的按钮把此行移出至另一个表里？求此按钮里的代码

 1、参考

 

http://www.foxtable.com/help/topics/2292.htm

 

http://www.foxtable.com/help/topics/2490.htm

 

 2、按钮代码和1相似

http://www.foxtable.com/help/topics/0680.htm   Filter 条件设置为  FIlter="已付款=True"

Dim r As Row = Tables("表A").Current
If r("逻辑列名") = True Then
    Dim nma() As String = {"第一列","第二列"} 'A表数据来源列
    Dim nmb() As String = {"第三列", "第四列"} 'B表数据接收列
    Dim dr As DataRow = DataTables("表B").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
End If

多谢二位版主