在编写表单时，如果出现非数学字符弹出对话框要求重新输入怎么写啊

要求只准输入数字吧

1、利用控件的掩码功能；
2、自己编写一段代码，对录入的字符进行判断处理。

吹版在上夜班？

LOCAL a as String
Accept "请输入一个字符串" To a
For i = 1 To Len(a)
    b=Substr(a,i,1)
    Do Case
    Case Isdigit(b)=.T.
        ?a+"的第"+ Transform(i)+"位是数字"
    Case Isalpha(b)=.T.
        ?a+"的第"+ Transform(i)+"位是字母"
    Otherwise
        ?a+"的第"+ Transform(i)+"位是数字字母外的字符"
    Endcase
Endfor

题就是:输入一个数实现倒数，然后如果输入非数字字符错误，弹出对话框要求重新输入然后在倒数。我就是后面的弹出对话框之后的不会

是在什么地方输入的？要有个输入对象。

clear
do while .t. 
    accept "请输入一个数字字符串：" to x
    if len(chrtran(x,"0123456789",""))>0
        messagebox("字符串 "+x+" 中含有非数字字符，请重新输入")
    else
        ?"1/"+x
        if messagebox("继续输入吗",4,"提示信息")=6
            loop
        else
            exit
        endif
    endif
enddo

是不是这种效果

这些一句都什么意思啊大神

8楼的判断句貌似也有问题，就是允许数字间夹杂非数字字符。如果这是实际应用的案例，我觉得最好的方法就是用掩码“9”来强制只允许录入数字；如果是道作业题，那么只能按题目要求进行提示。楼主可以在该Text控件的Valid事件中写一段代码来分析并提示，程序的思路是：用一个FOR...NEXT循环逐字符判断，循环从1开始，到该控件值的长度结束，即：LEN(ALLTRIM(Text.Value))。只要检测到非数字字符，就立即用Messagebox()函数进行提示，并RETURN 0；若全部检测完，没有发现非法字符，则RETURN 1。