[分享]限定文本框输入数字一法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【限定文本框中输入数字一法】
近日翻查一些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=""

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