我写函数来实现算了
//====================================================================
// 事件: .f_yjhm_validity()
//--------------------------------------------------------------------
// 描述:邮件号码录入有效性验证
// 参数:
// value string yjhm
// 返回: boolean
//====================================================================
Int i,char_cnt
String ls_yjhm,ls_char
ls_yjhm = yjhm
char_cnt = lenw(ls_yjhm)
FOR i = 1 To char_cnt
ls_char = midw(ls_yjhm,i,1)
IF Match(ls_char, "[A-Za-z]") Or Match(ls_char, "[0-9]") THEN
ELSE
RETURN False
END IF
NEXT
RETURN True