以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加载条件 申请单号 is not null 未实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137181)
--  作者：lfz123
--  发布时间：2019/6/29 16:16:00
--  加载条件 申请单号 is not null 未实现
Dim str As String = e.Form.Controls("DropBox2").value
Dim filter As String
If e.Sender.Value = "未对账" Then
    filter = " 供应商简称 = \'"& str & "\'and 申请单号 is null "
ElseIf e.Sender.value = "已对账" Then
    filter = " 供应商简称 = \'"& str & "\'and 申请单号 is not null " \'这个条件未实现
ElseIf e.Sender.value = "全部" Then
    filter = " 供应商简称 = \'"& str & "\'"
End If
DataTables("入库单").LoadFilter = filter
DataTables("入库单").Load()
--  作者：有点蓝
--  发布时间：2019/6/29 16:29:00
--  
试试：
 filter = " 供应商简称 = \'" & str & "\' and 申请单号 is not null and 申请单号 <> \'\'"