Question

vfp中如何使文本框输入的数值是在450以下的正数?

Answer 1

在keypress事件中写：
if asc(right(allt(thisform.text1.value)))<=57 and asc(right(allt(thisform.text1.value)))>=48
messagebox("输入非法字符！")
endif
但是运算时要注意将val(allt(thisform.text1.value))像这样处理后再做数学运算才能避免出错！

Answer 2

在文本框的valid事件中写入 条件
if this.value> 450 and this.value<0

retu 0
endif

Answer 3

在文本框控件的lostfocus中写入：
this.value=int(this.value)
if this.value>450 or this.value<=0
messagebox("你输入的数据只能在0－450之间，超出范围",48,"提示")
thisform.text1.setfocus
endif