同一个数据表,当按接收日期查询后,再追加查询完成日期,同时显示出来,怎么写代码?红字的地方就是先查询接收月份,再增加完成月份。单项查询代码如下:
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 = "申请时间"