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

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

点击浏览该文件:项目.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