以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]当前单元格值对该列筛选的按钮代码  (http://foxtable.com/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) ？？
If txt = "" Then
    Tables("表A").Filter = ""
Else
    Tables("表A").Filter = "当前单元格的函数怎么写呢"
End If
[此贴子已经被作者于2016/3/4 22:45:14编辑过]
--  作者：Hyphen
--  发布时间：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