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

【限定文本框中输入数字一法】
近日翻查一些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为日期就可以啦！


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