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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选空值失效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148758)

--  作者：fendouww
--  发布时间：2020/4/14 22:17:00
--  筛选空值失效

筛选空值失效,怎么都不能去掉已付的
此主题相关图片如下：1.jpg

Dim hh As WinForm.DateTimePicker = Forms("员工表").Controls("DateTimePicker1")
Dim ii As WinForm.DateTimePicker = Forms("员工表").Controls("DateTimePicker2")

Dim ll As WinForm.CheckBox = Forms("员工表").Controls("CheckBox1")
Dim lk As WinForm.CheckBox = Forms("员工表").Controls("CheckBox2")

Dim Filter As String
Filter = "[_Identify] is not null"
If hh.value IsNot Nothing AndAlso ii.value IsNot Nothing
vars("startdate") = hh.value
vars("enddate") = ii.value
Filter = Filter & " and " & "[交工日期] >= \'" & hh.Value & "\' and [交工日期] <= \'" & ii.Value & "\'"
End If
If ll.Checked = True AndAlso lk.Checked = False Then
Filter = Filter & " and " & "[已付] = 1"
End If

If lk.Checked = True AndAlso ll.Checked = False Then
Filter = Filter & " and " & "([已付] is null or [已付] <> 1)"
End If
Tables("员工表.工资结算").Filter = Filter

--  作者：有点蓝
--  发布时间：2020/4/14 22:31:00
--

Dim Filter As String
Filter = "[_Identify] is not null"
If hh.value <> Nothing AndAlso ii.value <> Nothing
vars("startdate") = hh.value
vars("enddate") = ii.value
Filter = Filter & " and " & "[交工日期] >= \'" & hh.Value & "\' and [交工日期] <= \'" & ii.Value & "\'"
End If
If ll.Checked = True AndAlso lk.Checked = False Then
Filter = Filter & " and " & "[已付] = true"
End If

If lk.Checked = True AndAlso ll.Checked = False Then
Filter = Filter & " and " & "([已付] is null or [已付] = false)"
End If
Tables("员工表.工资结算").Filter = Filter