主复选框点击后，子窗体复选内容统一更新

汤帅　发表于：2016-01-11 21:58:44 　

代码该怎么写啊？注意sfrDetail子窗体没有用表或查询表做记录源，是代码。

落尘_小新发表于：2016-01-12 01:28:02

Private Sub Check0_AfterUpdate()
    Dim i As Long
    For i = 1 To Me.sfrDetail.Form.RecordsetClone.RecordCount
        Me.sfrDetail.Form.SelTop = i
        If Me.Check0 = True Then
            Me.sfrDetail.Form.FNoSelect = True
            Me.全选.Caption = "取消全选"
        Else
            Me.sfrDetail.Form.FNoSelect = False
            Me.全选.Caption = "选择全部"
        End If
    Next i
End Sub

Top

汤帅发表于：2016-01-16 09:28:26

谢谢！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

主复选框点击后，子窗体复选内容统一更新