主题：求助几个小问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:时间.rar

1:编号框只能输入7到9位数字,输入不对就提示输入不对

2:姓名框的输入内容如果不在表A中的姓名列中,就提示输入的姓名不是有效的.

3: 开始日期怎样可以显示为2014-4-4 00:00:00  　　结束日期显示为2014-4-4 23:59:59且默认为当天的23:59:59

此主题相关图片如下：无标题.jpg

第一个问题

 

我这样写只能判断输入的个数，那要怎样判断输入的是数字而不是别的字符了

Dim bh As WinForm.TextBox = e.Form.Controls("bh")

If  bh.value Like "#######" Or bh.value Like "#########" Then
Else
MessageBox.Show("请输入的7到9位编号")
End If