*--某个字段必须是汉字 aa="我的123455,成" aa=Strconv(aa,2) If Len(aa)<>Lenc(aa) Messagebox('有非双字节') &&需要说明,非双字节不一定都是汉字,还有可能是全角符号等。 Endif *--某些字段必须为邮箱格式 If !At("@","abc@a.com") Or Len("abc@a.com")<5 Messagebox('不是邮箱格式') Endif