如何限定文本框输入的类型？

[heychen]

或者判断文本框内容不是指定的类型？

[fwy12]

如何含有两位小数的数值其value属性就是0.00，如果是日期型的，其value就是{}

[cbl518]

if vartype(文本框.value)#"D"
？ ”内容不是指定的<日期>类型的"
endif

[heychen]

就是说
直接输入数字0就是一位了？

[cbl518]

[Quote=引用 3 楼 heychen 的回复:]
就是说
直接输入数字0就是一位了？
[/Quote]

直接输入数字0 ,就是整数！

[cbl518]

多位整数

[十豆三]

在文本框的KeyPress事件中：
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=48 And nShiftAltCtrl=2 &&防止按Ctrl+0
	Nodefault
Endif


然后设置Value的值
Value设为0时只能输入数字
Value设为{}时只能输入日期
Value设为""时能输入字符
.....

[heychen]

我在vlaue属性输入0以后
确实能只限定输入数字了
但这时候text1的值是什么类型了？
我用?TYPE(thisform.text1.Value)测试
提示出错
连后面的乘法运算公式也提示出错
错误都是类型问题
怎么回事？

[cbl518]

用
TYPE("thisform.text1.Value")
或
VARTYPE(thisform.text1.Value)

测试

[heychen]

晕
测试结果是逻辑性

text1的value属性是数字0
确定按钮代码
SELECT baoguanfei
GO TOP
REPLACE 保管费 WITH thisform.text1.value

结果是逻辑性？？？？？？
why

[heychen]

Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=48 And nShiftAltCtrl=2 &&防止按Ctrl+0
Nodefault
Endif

keypress里加入这段貌似还能输入字母啊

[十豆三]

在设计状态，将Text1的Value设为0
或在Text1的Init事件加代码
This.Value=0

另外Text1不要绑定字段

[heychen]

-0-！！
原来
问题在于
我把变量的字母调反了。。。。。。。。。-0-！！！