85问答库 > 求熟悉的人帮忙，在vfp中的文本框中，实现按command后，如果输入的全是字母则往下执行，否则输出报错信息

求熟悉的人帮忙，在vfp中的文本框中，实现按command后，如果输入的全是字母则往下执行，否则输出报错信息

一定是vfp环境，不要其他代码的算法

2025-06-27 23:07:16

推荐回答（2个）

回答1：

t1=alltrim(thisform.text1.value)
m=0
for i=1 to len(t1)
k=substr(t1,i,1)
if asc(k)>=65 and asc(k)<=90 or asc(k)>=97 and asc(k)<=122
m=0
else
m=1
messagebox("不全是字母",64,"提示")
exit
endif
endfor

回答2：

aa = thisform.text1.value
if !empty(chrtran(aa,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ",""))
messagebox("不全是字母")
endif