主题：[求助]请帮改下查询代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目.rar

此主题相关图片如下：qq图片20140315151113.jpg

厂发货数量窗口，谢谢！

复选后查询

复选后查询要可以选择几个条件一起查询，代码只能选择一个件，请老师再帮忙改下。

可以多条件查询的附件是以前的4楼的那个吗？没变呢？

If rkdyd.Checked = True Then
    If filter > "" Then
        filter = filter & " and 入库单 = true"
    Else
        filter = "入库单 = true"
    End If
End If

If rkdwd.Checked = True Then
    If filter > "" Then
        filter = filter & " and 入库单 = false"
    Else
        filter = "入库单 = false"
    End If
End If
入库单 选 已到 时就不能选未到，两个能同时选择吗？有8个复选，希望能同时选任意几个查询

Dim filter As String = ""

Dim ch As WinForm.TextBox = e.Form.Controls("车号查询")
Dim rkdyd As WinForm.CheckBox = e.Form.Controls("入库单已到")
Dim rkdwd As WinForm.CheckBox = e.Form.Controls("入库单未到")
Dim rkdjyrk As WinForm.CheckBox = e.Form.Controls("入库登记已入库")
Dim rkdjwrk As WinForm.CheckBox = e.Form.Controls("入库登记未入库")
Dim zpjlyz As WinForm.CheckBox = e.Form.Controls("摘牌记录已摘")
Dim zpjlwz As WinForm.CheckBox = e.Form.Controls("摘牌记录未摘")
Dim cckpyk As WinForm.CheckBox = e.Form.Controls("仓储开piao已开")
Dim cckpwk As WinForm.CheckBox = e.Form.Controls("仓储开piao未开")

If ch.Text > "" AndAlso ch.text <> "车号查询" Then
    filter = "车号 = '" & ch.text & "'"
End If
If rkdyd.Checked = True Then
    If filter > "" Then
        filter = filter & " and 入库单 = true"
    Else
        filter = "入库单 = true"
    End If
End If

If rkdwd.Checked = True Then
    If filter > "" Then
        filter = filter & " and 入库单 = false"
    Else
        filter = "入库单 = false"
    End If
End If

If rkdjyrk.Checked = True Then
    If filter > "" Then
        filter = filter & " and 入库登记 = true"
    Else
        filter = "入库登记 = true"
    End If
End If
If zpjlyz.Checked = True Then
    If filter > "" Then
        filter = filter & " and 摘牌记录 = true"
    Else
        filter = "摘牌记录 = true"
    End If
End If
If cckpyk.Checked = True Then
    If filter > "" Then
        filter = filter & " and 开piao = true"
    Else
        filter = "开piao = true"
    End If
End If

Tables("厂发货数量").filter = filter

入库单 选 已到 时就不能选未到，两个能同时选择吗？有8个复选，希望能同时选任意几个查询

对的

谢谢！