(Combo4(1).Text = "None" Or Combo4(1).Text = "") And (Combo4(2).Text = "None" Or Combo4(2).Text = "") And _ (Combo4(3).Text = "None" Or Combo4(3).Text = "") And (Combo4(4).Text = "None" Or Combo4(4).Text = "") And _ (Combo4(5).Text = "None" Or Combo4(5).Text = "") And (Combo4(6).Text = "None" Or Combo4(6).Text = "") Then MsgBox "请选择设备", vbOKOnly