if sql(2,k)=1 and KS.S(sql(0,k))="" then call KS.AlertHistory(sql(1,k) & " 必须填写",-1):exit sub select case sql(3,k) case 8 If Not KS.IsValidEmail(KS.S(sql(0,k))) Then Call KS.AlertHistory("Email格式不正确!",-1):Exit Sub case 4 If Not isnumeric(KS.S(sql(0,k))) Then Call KS.AlertHistory("数字格式不正确!",-1):Exit Sub case 5 If Not ISDate(KS.S(sql(0,k))) Then Call KS.AlertHistory(sql(1,k) &"格式不正确!",-1):Exit Sub end select Next 提交表单的时候比如 表单里选择了 名称 必须 如果没有填写的话就出现 “名称必须填写” 要怎么样才变成 请填写您的名称

不懂哦！~~~呵呵