主题：关于筛选条件的问题

Dim Filter As String = "1=1"
With e.Form.Controls("TextBox14")
    If .Value IsNot Nothing Then
        Filter = " and 配送公司名称 = '" & .Value & "'"
    End If
End With
Tables("供货价格及数量审定_table1").Filter = Filter & " and  ([本年度供货价] Is Null or [暂定供货量] Is Null)"