- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请帮改下查询代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47708)
-- 发布时间：2014/3/15 15:16:00
-- [求助]请帮改下查询代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目.rar |
此主题相关图片如下：qq图片20140315151113.jpg
厂发货数量窗口，谢谢！
-- 发布时间：2014/3/15 15:17:00
--
请问你要实现什么效果?
-- 发布时间：2014/3/15 15:18:00
--
复选后查询
-- 发布时间：2014/3/15 15:25:00
--
既然你不愿意详细说清楚问题,那我只能瞎猜.
-- 发布时间：2014/3/15 15:48:00
--
复选后查询要可以选择几个条件一起查询，代码只能选择一个件，请老师再帮忙改下。
-- 发布时间：2014/3/15 15:49:00
--
现在已经可以多条件查询,但是我只做了 入库单因为不确定你是否是想要这个效果,避免白费功夫所以只做了一部分. 后面的代码是一样的.你自己照样画葫芦即可.
-- 发布时间：2014/3/15 16:27:00
--
可以多条件查询的附件是以前的4楼的那个吗？没变呢？
-- 发布时间：2014/3/15 16:32:00
--
有多条件的,你注意看一下.
-- 发布时间：2014/3/15 16:44:00
--
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个复选，希望能同时选任意几个查询
-- 发布时间：2014/3/15 16:45:00
--
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("仓储开票已开")
Dim cckpwk As WinForm.CheckBox = e.Form.Controls("仓储开票未开")
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 开票 = true"
Else
filter = "开票 = true"
End If
End If
Tables("厂发货数量").filter = filter