专家坐堂-复选框的操作问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  复选框的操作问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60283)

--  作者：海阔天空pl
--  发布时间：2014/11/21 16:36:00
--  复选框的操作问题
请问：在一个表里设置了逻辑列（比如“已付款”），想设置一个按钮，当此行被选中时，点击窗口的按钮把此行移出至另一个表里？求此按钮里的代码

--  作者：有点甜
--  发布时间：2014/11/21 16:39:00
--

1、参考

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

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

2、按钮代码和1相似

--  作者：Bin
--  发布时间：2014/11/21 16:40:00
--
http://www.foxtable.com/help/topics/0680.htm Filter 条件设置为 FIlter="已付款=True"

删除用 DeleteFOr http://www.foxtable.com/help/topics/0394.htm 条件同上

--  作者：有点甜
--  发布时间：2014/11/21 16:41:00
--
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

--  作者：海阔天空pl
--  发布时间：2014/11/21 17:40:00
--
多谢二位版主