点击下载此附件

演   示:

解决方法：在选择复选框事件更新后事件加如下代码就行了，
Private Sub 选择_AfterUpdate()
    Dim i As Integer
    i = DCount("*", "TMP_选择_客户ID", "选择=True")
    If 选择 = -1 Then
        Me.Parent.选中数 = i + 1
    Else
        Me.Parent.选中数 = i - 1
    End If
    Me.Requery
End Sub