Foxtable(狐表)用户栏目专家坐堂 → [求助]当前单元格值对该列筛选的按钮代码


  共有5080人关注过本帖树形打印复制链接

主题:[求助]当前单元格值对该列筛选的按钮代码

帅哥哟,离线,有人找我吗?
Hyphen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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



 回到顶部