if([姓名]>"" AndText([科别])>""AndText([收费员])>""AndText([医保方式])>"" AndText([收费类别])>"",true,MsgBox("姓名、科别、收费员、医保方式、收费类别为必填项目,请录入!",0))