主题：[求助]这样的筛选如何做?[已解决]

Dim Filter As String
With e.Form.Controls("生产单号")
    If .Value IsNot Nothing Then
        Filter = "生产单号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("客户代号")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " and "
        End If
        Filter = Filter & "客户代号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("已完成")
    If .checked = True Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "已完成 = true"
    End If
End With
With e.Form.Controls("未完成")
    If .checked = True Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "已完成 = false"
    End If
End With

If Filter > "" Then
    DataTables("收款主表").loadFilter = Filter
    DataTables("收款主表").load
End If