Question

vfp表单设计：在TEXT1中输入20个英文字符，点击按钮控件时候，删除所有大写字符，并显示剩下的字符在TEXT2

求代码

Answer 1

在确定按钮的click 单击事件中输入代码

str1=alltrim(thisform.text1.value)

str2=""

n=len(str1)

for i=1 to n

  if not(substr(str1,i,1)>="A" and substr(str1,i,1)<="Z")

     str2=str2+substr(str1,i,1)

  endif

endfor

thisform.text2.value=str2

界面如下图