主题：对NULL的处理

 改成 where 物料名 is null and 订单号 is null

别人留空，你就不查值；别人填null，你就对应改成 is null 啊

 

参考前几天那种写法，合成条件。

 null值和值比较得到的结构，都是false。所以无法成立。

 

 你需要这样比较

 

(订单 is null Or 订单 <> '1')

Dim filter As String = "1=1"
ElseIf wlbm = "null" Then
    filter &= " and 物料编码 is null"
ElseIf wlbm > ""
    filter &= " and 物料编码 = '" & wlbm & "'"
End If

If lhbbh = "null" Then
    filter &= " and 两化表编号 is null"
Else If lhbbh > "" Then
    filter &= " and 两化表编号 like '%" & lhbbh & "%'"
End If

If rjbb = "null" Then
    filter &= " and 软件版本 is null"
ElseIf rjbb = "" Then
    filter &= " and 软件版本 = '" & rjbb & "'"
End If
Dim filter1 As String = "(订单号 is null or 订单号 <> '" & ddh & "') and (订单行号 <> '" & ddhh & "') and "
MsgBox(filter1)

strSql = "select * from [可用数量表]  where " & filter1 & filter
MsgBox(strSql)

  条件没有错，你其它代码有问题。

 你把引用的值，一个一个的改成具体的字符测试呗。

 

 应该是这句代码有问题 Format(dr1("入库时间"), "yyyy-MM-dd HH:mm:ss")

 

 你的入库时间，可能是空值。