Private Sub Cbo2_AfterUpdate()
If Not Isnull(Me.Cbo1) and IsNull(Me.Cbo2) Then
MsgBox "Cbo2不能为空!", vbInformation + vbOKOnly
Me.Cbo2.SetFocus
Exit Sub
End If
If Me.Cbo1 <> Me.Cbo2 Then
MsgBox "Cbo1 与 Cbo2 不一样!", vbInformation + vbOKOnly
Me.Cbo2.SetFocus
Exit Sub
End If
End Sub