主题：请教

If e.Col.name = "pzzb44" Or e.Col.name = "pzzb45"  Then

    e.Cancel = True

    Forms("frmTzInfo").Open

    If Forms("frmTzInfo").Opened Then

        Dim cb1 As WinForm.CheckBox = Forms("frmTzInfo").Controls("CheckBox1")

        cb1.Checked = True

        cb1.Enabled = False

    End If

End If

If e.Sender.Checked = True    Then

     if  ok    then

e.Sender.Checked = True 

     elseif    no  then

e.Sender.Checked = false

   end if 

End If