问基于记录在Form_Load()上启用或禁用选项控件

EN

Private Sub optInclusive_AfterUpdate()
    If Me.optInclusive Then
        Me.optMonthly.Enabled = False
        Me.txtMonthlyRate.Enabled = False
    Else
        Me.optMonthly.Enabled = True
        Me.txtMonthlyRate.Enabled = True
    End If
End Sub

Private Sub optMonthly_AfterUpdate()
    If Me.optMonthly Then
        Me.optInclusive.Enabled = False
        Me.txtInclusiveRate.Enabled = False
        Me.txtDateFrom.Enabled = False
        Me.txtDateTo.Enabled = False
        Me.txtTimeFrameRate.Enabled = False
    Else
        Me.optInclusive.Enabled = True
        Me.txtInclusiveRate.Enabled = True
        Me.txtDateFrom.Enabled = True
        Me.txtDateTo.Enabled = True
        Me.txtTimeFrameRate.Enabled = True
    End If
End Sub