[求助]如何控制输入格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何控制输入格式

共有7376人关注过本帖树形打印复制链接主题：[求助]如何控制输入格式

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/19 11:15:00 [显示全部帖子]

你说的0001234-A，左边的0001234是指数字，还是指000是固定的，1234是数字随意变换？

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/19 11:30:00 [显示全部帖子]

编写控件的 validating 事件，规则根据你自己想要的格式改变。

Dim text As String = e.Sender.Text
Dim match As String = "^000{1}[0-9]{4}$|^000{1}[0-9]{4}-A{1}$"
If Not System.Text.RegularExpressions.Regex.IsMatch(text, match) Then
msgbox("格式不正确")
e.Cancel = True
End If

下一主题 >> << 上一主题

主题：[求助]如何控制输入格式