| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何进行追加查询？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85135) |
| -- 作者：hrw68529 -- 发布时间：2016/5/18 16:51:00 -- [求助]如何进行追加查询？ 同一个数据表，当按接收日期查询后，再追加查询完成日期，同时显示出来，怎么写代码？红字的地方就是先查询接收月份，再增加完成月份。 单项查询代码如下： Dim Filter As String With e.Form.Controls("comboBox15") If .Value IsNot Nothing Then Filter = "年度 = \'" & .Value & "\'" End If End With With e.Form.Controls("comboBox1") If .Value IsNot Nothing Then Filter = "接收月份 = \'" & .Value & "\'" End If End With With e.Form.Controls("comboBox2") If .Value IsNot Nothing Then Filter = "完成月份 = \'" & .Value & "\'" End If End With With e.Form.Controls("comboBox16") If .Value IsNot Nothing Then Filter = "受伤害职工姓名 = \'" & .Value & "\'" End If End With If e.Form.Controls("yja1").Checked = True \' 如果付款状态选择了"已付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否结案 = true" End If If e.Form.Controls("wja1").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否结案 = false" End If If e.Form.Controls("ydc1").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否调查 = True" End If If e.Form.Controls("wdc1").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否调查 = false" End If If e.Form.Controls("fq").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否放弃 = True" End If If e.Form.Controls("wfq").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否放弃 = false" End If If e.Form.Controls("wt").Checked = True \' 如果付款状态选择了"未付" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "是否委托 = True" End If If Filter > "" Then Tables("工伤认定申请表_table1").Filter = Filter End If Tables("工伤认定申请表_table1").Sort = "申请时间"
|
| -- 作者：大红袍 -- 发布时间：2016/5/18 16:54:00 -- Dim Filter As String = "1=1"
With e.Form.Controls("comboBox15")
If .Value IsNot Nothing Then
Filter &= " and 年度 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("comboBox1")
If .Value IsNot Nothing Then
Filter &= " and 接收月份 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("comboBox2")
If .Value IsNot Nothing Then
Filter &= " and 完成月份 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("comboBox16")
If .Value IsNot Nothing Then
Filter &= " and 受伤害职工姓名 = \'" & .Value & "\'"
End If
End With
|
| -- 作者：hrw68529 -- 发布时间：2016/5/18 16:57:00 -- 这么快 |
| -- 作者：hrw68529 -- 发布时间：2016/5/18 17:14:00 -- 大红袍，还是不行啊，当我先选择年度－接收月份－完成月份，查询后，生成的是完成月份数据，我的意思是既要选择接收月份的数据，又要选择完成月份的数据， |
| -- 作者：hrw68529 -- 发布时间：2016/5/18 17:21:00 -- 如：接收月份是4月份，但完成月份可能是5月份，5月份我也接收了数据，现在我要查5月份接收的数据和4月份接收的但是5月份完成的数据 |
| -- 作者：大红袍 -- 发布时间：2016/5/18 19:13:00 -- Dim Filter As String = "1=1"
With e.Form.Controls("comboBox15")
If .Value IsNot Nothing Then
Filter &= " and 年度 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("comboBox1")
If .Value IsNot Nothing Then
Filter &= " and (接收月份 = \'" & .Value & "\' or 完成月份 = \'" & .Value & "\')"
End If
End With
With e.Form.Controls("comboBox2")
If .Value IsNot Nothing Then
Filter &= " and (完成月份 = \'" & .Value & "\' or 接收月份 = \'" & .Value & "\')"
End If
End With
With e.Form.Controls("comboBox16")
If .Value IsNot Nothing Then
Filter &= " and 受伤害职工姓名 = \'" & .Value & "\'"
End If
End With
|