主题：求助：已经实现当行选中，反选其他行，但是多行选中时候，反选其他行就不能进行，只能空出当前行，要求空出所选择的多行！

新建一保密技术防护专用系统安装登记表，并使用了复选框，

一按钮反选，代码如下：

For Each r As Row In Tables("保密技术防护专用系统安装登记表").GetCheckedRows
    If r("编号") <>"" Then
        r.Checked = False
        For Each r1 As Row In Tables("保密技术防护专用系统安装登记表").Rows
            If r1("编号") <>"" Then
                Dim A As Row=Tables("保密技术防护专用系统安装登记表").Current
                If r1("_Identify") <> a("_Identify") Then '如果不是本行
                    r1.Checked = True
                End If
            End If
        Next
    End If
Next

可以实现当前行是选中的情况下 反选其他所有行，但是却不能实现多行选中情况下，反选其他所有行，求纠正！

一按钮全选，代码如下：

For Each r As Row In Tables("保密技术防护专用系统安装登记表").Rows
    If r("编号") <>"" Then
        r.Checked = True
    End If
Next