Dim t As Table = Tables("发货确认_Table1") With Tables("订单跟踪") If .Current Is Nothing Then t.Filter = "False" Else ' t.Filter =" 订单号 = '" & .Current("订单号")&"'" t.Filter =" 订单号 = '" & .Current("订单号")&"' And 发运 = False Or 发运 Is Null" 请确认发运是什么列 为什么写两次条件 而且是不同的写法? End If End With