TextChange事件
If e.Sender.Text = "有" Then
e.Form.Controls("TextBox1").Enabled = true
ElseIf e.Sender.Text = "无" Then
e.Form.Controls("TextBox1").Enabled = False
End If