有两个文本框Text1,Text2
要求：Text1只能输入A到J,输入其他字母则不可用
当在Text1输入多少个字母时，在Text2就会出现多少个*
例如：在Text1输入ABC，则在Text2出现***

急用，请高手指点

怎么没有人懂的

cOld=ALLTRIM(THIS.VALUE)
cNew=''
FOR lnCnt=1 TO LEN(cOld)
  IF INLIST(SUBSTR(cOld,lnCnt,1),'A','B','C','D','E','F','G','H','I','J')
    cNew=cNew+SUBSTR(cOld,lnCnt,1)
  ENDIF
ENDFOR
THIS.VALUE=cNew
THIS.SELSTART=LEN(cNew)
THISFORM.TEXT2.VALUE=cNew

另外设置Text2的PasswordChar为*

收到的鲜花

• 挑战者一号 于 2010-01-14 16:59 送鲜花  3朵   附言：好文章

上述程序放在Text1的InterActiveChange里

多谢了

修改一下，适应大写和小写
cOld=ALLTRIM(THIS.VALUE)
cNew=''
FOR lnCnt=1 TO LEN(cOld)
  IF SUBSTR(cOld,lnCnt,1)$'ABCDEFGHIJabcdefghij'
    cNew=cNew+SUBSTR(cOld,lnCnt,1)
  ENDIF
ENDFOR
THIS.VALUE=cNew
THIS.SELSTART=LEN(cNew)
THISFORM.TEXT2.VALUE=cNew

有些不懂请教：cNew、c0ld、InCnt表示什么的，我们的课本怎么没有这种的

变量而已。只不过前面的小写字母表示该变量的类型。注意InCnt应该是lnCnt，l表示local本地变量。

不愧是高手