主题：[求助]如何替换掉空值-重新上传了附件，请老师再看看

Dim c1 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim c2 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox2")

Dim f1 As String = "1=2"
If c1.Text.Contains("空白") Then
    f1 &= " or 第一列 is null"
End If
If c1.text.Contains("全选") Then
    f1 &= " or 1=1"
End If

f1 = "(第一列 in ('" & c1.Text.Replace(",", "','") & "') or " & f1 & ")"

Dim f2 As String = "1=2"
If c2.Text.Contains("空白") Then
    f2 &= " or 第一列 is null"
End If
If c2.text.Contains("全选") Then
    f2 &= " or 1=1"
End If

f2 = "(第二列 in ('" & c2.Text.Replace(",", "','") & "') or " & f2 & ")"

Tables("表A").Filter = f1 & " and " & f2
msgbox(f1 & " and " & f2)