| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何筛选列空白的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88887) |
| -- 作者：yaorxin -- 发布时间：2016/8/11 0:20:00 -- [求助]如何筛选列空白的数据 想增加一个条件，同时筛选“登记时间”列中值为空的数据，同时也需要以下的条件，需要加什么语名句 Tables("进出单表").Filter =“登记时间” IsNull 加了上面这句筛不出来。 Dim sd As WinForm.DateTimePicker = e.Form.Controls("开始时间") Dim ed As WinForm.DateTimePicker = e.Form.Controls("结束时间") Dim Filter As String With e.Form.Controls("开始时间") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "要求出单时间 >= #" & sd .Value & "#" End If End With With e.Form.Controls("结束时间") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "要求出单时间 <= #" & ed .Value & "#" End If End With If Filter > "" Then Tables("进出单表").Filter = Filter End If Tables("进出单表").Sort = "要求出单时间" |
| -- 作者：kylin -- 发布时间：2016/8/11 8:24:00 -- Tables("进出单表").Filter =“登记时间 Is Null“ |
| -- 作者：Hyphen -- 发布时间：2016/8/11 9:06:00 -- If Filter > "" Then Filter &= “ or 登记时间 Is Null“ else
Filter = “登记时间 Is Null“
End If Tables("进出单表").Filter = Filter |
| -- 作者：大红袍 -- 发布时间：2016/8/11 9:54:00 -- Dim Filter As String
改成
Dim Filter As String = "登记时间 Is Null" |