- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文本框数值的判断！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31408)
-- 发布时间：2013/4/14 14:46:00
-- [求助]文本框数值的判断！
窗口1有文本框TextBox1
怎么才能让TextBox1输入的值是数值时，存入表B第5列第4行，输入的值是空值或字符时则不填入表B！并在输入错误时出现提示：输入错误，请输入数字！
求大神帮忙写个代码！
-- 发布时间：2013/4/14 15:16:00
--
Dim s As String= e.Form.Controls("TextBox1").value
If cstr(val(s))=s Then
MessageBox.Show(“输入错误，请输入数字！”)
else
....................................
End If
[此贴子已经被作者于2013-4-14 15:17:29编辑过]
-- 发布时间：2013/4/14 15:28:00
--
以下是引用fjlclxj在2013-4-14 15:16:00的发言：
Dim s As String= e.Form.Controls("TextBox1").value
If cstr(val(s))=s Then
MessageBox.Show(“输入错误，请输入数字！”)
else
....................................
End If
[此贴子已经被作者于2013-4-14 15:17:29编辑过]
不对，测试效果是输入空值或者字符，提示代码错误，输入数值提示错误，请输入数值
-- 发布时间：2013/4/14 15:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:tmp1.rar |
你测试下，窗体文件（“=”应该是“<>”，搞错了）
[此贴子已经被作者于2013-4-14 15:34:46编辑过]
-- 发布时间：2013/4/14 15:48:00
--
你发的文件我用不起
-- 发布时间：2013/4/14 15:50:00
--
恩，= 改了就可以了，谢谢！