主题：号码长度判断

请教各位老师  新增窗口 文本框绑定到表中的身份证号码  在文本框输入号码 如何来判断号码是18位 请教各位老师

Dim str As String = e.Form.Controls("TextBox1").Text
If Str.Length <> 18 Then
    msgbox("错误")
End If

if e.form.controls("TextBox1").text.length=18 then

谢谢

 

请教各位老师 能不能设置一个按钮 当我临时有事要暂时离开 点击锁住系统  此时该按钮显示解锁 点击出现登录提示输入密码登录系统

锁项目，可以设计一个锁的窗口，窗口要是【模式】窗口，窗口的beforeClose写入判断密码是否正确的代码。

 

点击锁的时候，弹出这个窗口即可。

 如下

 

 

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

点击浏览该文件:锁项目.table

谢谢