标题: 一个查询 [打印本页] 作者: yhf 时间: 2011-12-3 23:33 标题: 一个查询 请教各位：附件中窗体1内的查询功能如何实现 。谢谢！！！作者: aslxt 时间: 2011-12-4 00:07
Private Sub Combo2_Change()
'SELECT 表1.ID, 表1.姓名, 表1.工资发放方式 FROM 表1
Select Case Combo2
Case "正常"
Me.List0.RowSource = "SELECT 表1.ID, 表1.姓名, 表1.工资发放方式 FROM 表1 WHERE 工资发放方式 IN('现金','银行')"
Case "全部"
Me.List0.RowSource = "SELECT 表1.ID, 表1.姓名, 表1.工资发放方式 FROM 表1 "
Case Else
Me.List0.RowSource = "SELECT 表1.ID, 表1.姓名, 表1.工资发放方式 FROM 表1 WHERE 工资发放方式 ='" & Combo2 & "'"
End Select
End Sub 作者: Henry D. Sy 时间: 2011-12-4 09:03
搜索刘小军作者: Henry D. Sy 时间: 2011-12-4 09:42
Private Sub Combo2_AfterUpdate()
Dim Criteria As String
Dim strWhat As String
Dim sSQL As String
If Not IsNull(Me.Combo2) Then
strWhat = Me.Combo2
Else
Exit Sub
End If
Select Case strWhat
Case Is = "全部"
Criteria = ""
Case Is = "正常"
Criteria = "WHere 工资发放方式='现金' OR 工资发放方式='银行'"
Case Else
Criteria = "where 工资发放方式='" & strWhat & "'"
End Select
sSQL = "select * from 表1 " & Criteria
Me.List0.RowSource = sSQL
End Sub
复制代码
作者: Henry D. Sy 时间: 2011-12-4 14:01
最好是通过一个查询条件表？
什么意思？作者: yhf 时间: 2011-12-4 17:52 本帖最后由 yhf 于 2011-12-5 06:22 编辑
Henry D. Sy 发表于 2011-12-4 14:01
最好是通过一个查询条件表？
什么意思？
有请版主 Henry D. Sy ： 附件窗体1中列表框数据来源为查询1，请帮助用IIF语句写查询条件。谢谢！！！作者: yhf 时间: 2011-12-5 06:26
Henry D. Sy 发表于 2011-12-4 14:01
最好是通过一个查询条件表？
什么意思？
有情版主Henry D. Sy ：附件中窗体1中列表框数据来源为查询1，窗体1sub为查询条件，请帮助用iif语句写出该查询。谢谢!!!作者: yhf 时间: 2011-12-6 17:54
谢谢各位不吝赐教！
