With Forms("窗口3").Controls("textbox1") If .Value = "" Then e.Sender.ReadOnly = BooleanEnum.FalseElse e.Sender.ReadOnly = BooleanEnum.TrueEnd IfEnd With