- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]当前单元格值对该列筛选的按钮代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81761)
-- 发布时间：2016/3/4 22:17:00
-- [求助]当前单元格值对该列筛选的按钮代码
此主题相关图片如下：筛选.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:当前单元格值对该列筛选的按钮代码.table |
筛选出“当前列”行中包含该字符的行，也不会，请各位老师指点一下了，刚开始学狐表
此主题相关图片如下：hhh.png
[此贴子已经被作者于2016/3/4 22:32:28编辑过]
-- 发布时间：2016/3/4 22:45:00
--
\'按钮点击筛选当前列,关键字为:当前单元格值
Dim txt As String = 当前单元格的值代码怎么写呢？Select(Row, Col)还是CurrentTable.Select(0,0) ？？
Dim txt As String = 当前单元格的值代码怎么写呢？Select(Row, Col)还是CurrentTable.Select(0,0) ？？
If txt = "" Then
Tables("表A").Filter = ""
Else
Tables("表A").Filter = "当前单元格的函数怎么写呢"
End If
Tables("表A").Filter = ""
Else
Tables("表A").Filter = "当前单元格的函数怎么写呢"
End If
[此贴子已经被作者于2016/3/4 22:45:14编辑过]
-- 发布时间：2016/3/5 10:40:00
--
Dim txt As String = e.Form.Controls("ComboBox1").Text \'获取控件值
With Tables("表A")
If txt = "" Then
.Filter = ""
Else
.Filter = .Cols(Tables("表A").ColSel).Name & "=\'" & txt & "\'" \'相当于“列名=\'条件\'”
End If
End With
-- 发布时间：2016/3/5 19:30:00
--
感谢前辈，不过怎样改成 Like 模糊查询呢？
还有当前单元格的值对当前列、或当前表，进行筛选，的按钮的代码怎么写的？
-- 发布时间：2016/3/6 11:07:00
--
With CurrentTable
.Filter = .Cols(CurrentTable.ColSel).Name & " like \'%" & CurrentTable.Value & "%\'"
End With
-- 发布时间：2018/7/26 9:28:00
-- 回复：（大红袍）With CurrentTable ...
如果反过来，列筛选 不含当前值，上面代码怎么修改呢？
like 改 NotLike 报错
-- 发布时间：2018/7/26 9:34:00
--
With CurrentTable
.Filter = .Cols(CurrentTable.ColSel).Name & " not like \'%" & CurrentTable.Value & "%\'"
End With
-- 发布时间：2018/7/26 9:44:00
-- 回复：（有点甜）With CurrentTable ...
列值有 1 2 3
排除 1后，列值只显示 2 3 是对的
但当 继续操作 排除 2，列值想只显示 3，代码怎么修改？也就是想在之前筛选的基础上继续排除筛选
上面代码是列全部值进行排除2，显示 1 3
-- 发布时间：2018/7/26 9:47:00
--
With CurrentTable
.Filter = iif(.filter>"", "(" & .filter & ") and ", "") & .Cols(CurrentTable.ColSel).Name & " not Like \'%" & CurrentTable.Value & "%\'"
End With
-- 发布时间：2018/8/23 10:57:00
-- 回复：（有点甜）With CurrentTable ...
如果日期、逻辑类型列，下面代码也要实现对列筛选，怎么修改呢？
With CurrentTable
.Filter = .Cols(CurrentTable.ColSel).Name & " like \'%" & CurrentTable.Value & "%\'"
End With
如果日期、逻辑类型列，下面代码也要实现对列排除筛选，怎么修改呢？
With CurrentTable
.Filter = iif(.filter>"", "(" & .filter & ") and ", "") & .Cols(CurrentTable.ColSel).Name & " not Like \'%" & CurrentTable.Value & "%\'"
End With