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

一按钮反选，代码如下：

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

 楼主，你怎么没有一点进步？思路很清晰啊。

 循环所有的行，r.Checked = Not r.Checked

不好意思 之前没有操作类似经验 所以才学

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

代码如上 效果是能够清除所选择的多行了 但是没有反选所选择的行之外的其他所有行