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

DataTables("表A").ReplaceFor("第一列", "未录入", "[第一列] is null")

赋值为

 

"空白|" & DataTables("表A").GetComboListString("第一列")

If e.Sender.Text = "空白" Then
    Tables("表A").Filter = "第一列 is null"
Else If e.Sender.text = "全选" Then
    Tables("表A").Filter = ""
End If

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

Tables("表A").Filter = "第一列 in ('" & e.Sender.Text.Replace(",", "','") & "') or " & filter

  9楼啊

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)