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

如图，对窗口控件的值进行筛选，其中用到radiobutton控件，我试着录入代码，但结果不对，请指教 ！

去掉那段代码以后，执行代码提示：

把你拼接的FIlter 弹出来看看

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

晕，这种问题咋没人解答啊。5月份提的，现在都没人解答

 

什么问题？顶上来看看。