Foxtable(狐表)用户栏目专家坐堂 → [求助][原创]我想做成模糊筛选,要更改那个参数


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

主题:[求助][原创]我想做成模糊筛选,要更改那个参数

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


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
[求助][原创]我想做成模糊筛选,要更改那个参数  发帖心情 Post By:2016/9/27 14:36:00 [只看该作者]




Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter ="产品编号 Like '" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单编号 Like '" & .Value & "*'"
    End If
End With
If Filter > "" Then
    Tables("工时成本表").Filter = Filter
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/27 15:12:00 [只看该作者]

Filter ="产品编号 Like '%" & .Value & "%'"
Filter = Filter & "订单编号 Like '%" & .Value & "%'"

 回到顶部