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


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

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

帅哥哟,离线,有人找我吗?
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

 回到顶部