筛选标记 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选标记

共有1901人关注过本帖树形打印复制链接主题：筛选标记

longyanlin

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

等级：幼狐帖子：166 积分：1609 威望：0 精华：0 注册：2016/5/12 14:53:00

筛选标记

Post By：2016/11/25 9:40:00 [只看该作者]

帮助里面通常是对某一列进行筛选，能不能改用筛选显示锁定行标记：True(是)或者是false(否) 啊，谢谢老师们指导

If DataTables("员工").find("保存=false") IsNot Nothing Then

If MessageBox.Show("还有没保存的行,是不是删除?", "温馨提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes

DataTables("员工").DeleteFor("保存=false")
Else
e.cancel = True
End If
End If

有点蓝

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

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/25 10:02:00 [只看该作者]

Tables("出库明细").Filter = "_locked = true"

Tables("出库明细").Filter = "_locked = false"

longyanlin

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

等级：幼狐帖子：166 积分：1609 威望：0 精华：0 注册：2016/5/12 14:53:00

Post By：2016/11/25 10:12:00 [只看该作者]

谢谢

另外错误动态提示第一种有用

If e.Sender.Text.Length <> 6 Then
MessageBox.Show("邮编应该是六位数!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If

第二种不显示，是不是文本框不能放在TabControl1里面导致看不见的

If e.Sender.Text.Length <> 6 Then
e.Sender.Error = "邮编应该是六位数!"
Else
e.Sender.Error = ""
End If

有点蓝

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

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/25 10:36:00 [只看该作者]

Validating事件

If e.Sender.Text.Length <> 6 Then
e.Sender.Error = "邮编应该是六位数!"

e.Cancel = True
Else
e.Sender.Error = ""
End If

[此贴子已经被作者于2016/11/25 10:36:20编辑过]

主题：筛选标记