关于筛选条件的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于筛选条件的问题

共有2692人关注过本帖树形打印复制链接主题：关于筛选条件的问题

bbnnmm2015

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：588 威望：0 精华：0 注册：2015/7/27 17:23:00

关于筛选条件的问题 发帖心情

Post By：2015/8/4 17:19:00 [只看该作者]

专家你好，

Dim Filter As String
With e.Form.Controls("TextBox14")
    If .Value IsNot Nothing Then
        Filter = "配送公司名称 = '" & .Value & "'"
    End If
Tables("供货价格及数量审定_table1").Filter = Filter

运行没问题，

但是我要加上"本年度供货价 IS NULL or 暂定供货量 is null"的筛选条件，怎么加，试了很多次没成功

blsu33

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/4 18:49:00 [只看该作者]

Dim txb As WinForm.TextBox = e.Form.Controls("TextBox14")

If txb.Value<>"" Then

Tables("供货价格及数量审定_table1").Filter = "[配送公司名称]= '" & txb.Value & "' and [本年度供货价] Is Null And [暂定供货量] Is Null"

End If

试试

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/4 19:14:00 [只看该作者]

Dim Filter As String = "1=1"
With e.Form.Controls("TextBox14")
    If .Value IsNot Nothing Then
        Filter = " and 配送公司名称 = '" & .Value & "'"
    End If
End With
Tables("供货价格及数量审定_table1").Filter = Filter & " and ([本年度供货价] Is Null or [暂定供货量] Is Null)"

下一主题 >> << 上一主题

主题：关于筛选条件的问题