字段中某些字符以掩码显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字段中某些字符以掩码显示

共有8204人关注过本帖树形打印复制链接主题：字段中某些字符以掩码显示

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 22:42:00 [显示全部帖子]

只能同一行比较，不能全表比较。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 22:58:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:身份证掩码显示 (2)2 (1) (3).table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 23:23:00 [显示全部帖子]

53楼没有问题。修改手机号，必须整体修改。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 9:02:00 [显示全部帖子]

53楼没问题。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/8 13:06:00 [显示全部帖子]

Dim r_tele As New System.Text.RegularExpressions.Regex("^(1(([35][0-9])|(47)|[8][01236789]))\d{8}$")

改成

Dim r_tele As New System.Text.RegularExpressions.Regex("^1[01236789]{10}$")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/8 14:23:00 [显示全部帖子]

以下是引用peibaomin在2017/8/8 13:16:00的发言：
老师还是不行

测试没问题，请认认真真测试。所有相同的代码，都要改成对应的。看 59楼。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/8 15:00:00 [显示全部帖子]

我测试，没问题，请认认真真看事件代码修改。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/8 15:18:00 [显示全部帖子]

以下是引用peibaomin在2017/8/8 15:14:00的发言：

知道什么原因了，我是在掩码输入的数据，在正常显示列输入没问题

怎样避免在掩码列输入数据后不弹出这个错误框呢？

同样测试没问题。你datacolchanging事件，有两个地方要替换成 Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0123456789]{10}$")

[此贴子已经被作者于2017/8/9 9:59:01编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/11 9:15:00 [显示全部帖子]

Dim khm As WinForm.TextBox = e.Form.Controls("kehuxingmingTextBox")
Dim sfzh As String = Tables("表A").current("身份证2")
Dim count As Integer = DataTables("表A").compute("count(_Identify)", "身份证2= '" & sfzh & "'")
If e.Form.Controls("kehuxingmingTextBox").Value = Nothing OrElse sfzh = Nothing OrElse ValidPIN( sfzh)=False OrElse count > 1 Then
    msgbox("数据输入有误!保存数据失败.")
    DataTables("表A").RejectChanges
    e.cancel = True
    'DataTables("表A").save
    'Return
Else
    'Tables("表A").Current("姓名")=khm.text
    'DataTables.Save
    'Tables("表A").position = 0
    'DataTables("表A").save
    'Tables("表A").Filter =""
    'DataTables("表A").Load
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/11 16:26:00 [显示全部帖子]

用代码隐藏可以这样写

RibbonTabs("Common").Groups("Data").Items("Other").Items("HideColumn").visible = True
RibbonTabs("Common").Groups("Data").Items("Other").Items("UnHideColumn").visible = False

你也可以导入系统菜单模板，把你不需要的菜单隐藏 http://www.foxtable.com/webhelp/scr/1079.htm

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

总数 34 上一页 1 2 3 4 下一页

主题：字段中某些字符以掩码显示