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

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

Dim Filter As String = "1=1"
With e.Form.Controls("生产单号")
    If .Value IsNot Nothing Then
        Filter = " and 生产单号 = '" & .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

    DataTables("生产主表").loadFilter = Filter
    DataTables("生产主表").load

以下是引用TongOk在2014-11-19 17:28:00的发言：
晕，这种问题咋没人解答啊。5月份提的，现在都没人解答

什么问题？顶上来看看。