1
''统计职务
With e.Form.Controls("cmbPos")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "retiredPost in ('" & .Value.replace(",","','") & "')"
End If
End With
2、增加一个组合框选择咯
''统计党龄
With e.Form.Controls("cmbPartySta")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & " partyStanding " & e.Form.Controls("大于，小于，等于三个选项组合框").text & " '" & .Value & "'"
End If
End With
加好友 
发短信
Post By：2018/6/26 23:02:00 [显示全部帖子]
