主题：[分享]限定文本框输入数字一法

【限定文本框中输入数字一法】
近日翻查一些VB代码，偶然得到的,这个思路跟一般的思路有点不同，适当完善了一下，搬到foxtable上用了，感觉还行，简单易懂。这个估计很多会用到，于是贴出来了。
可在leave事件里设置（注意.text与.value的异同 ）


Dim i As Integer
On Error GoTo Error1
i = Forms("窗口1").Controls("TextBox1").text
Exit Sub
Error1:
MsgBox ("请输入数字!")
Forms("窗口1").Controls("TextBox1").value=""

以前论坛里有关于这方面的贴的提问，不妨参考本帖。

如果限定输入日期，dim i为日期就可以啦！


（不过有时候，输入正确的后，仍然有对话框弹出，不知何故）

感觉还是直接用IsNumeric来的方便。

if IsNumeric(e.Form.Controls("TextBox1").text) = false Then
    MsgBox ("请输入数字!")
    e.Form.Controls("TextBox1").value=""
End If

1、3楼的代码如果连小数点都不许输入的话，就不行了～  （也就是只能输入整数时）