一个查询

yhf

请教各位：附件中窗体1内的查询功能如何实现 。谢谢！！！

aslxt

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

搜索刘小军

Henry D. Sy

1. Private Sub Combo2_AfterUpdate()
   
2.     Dim Criteria As String
   
3.     Dim strWhat As String
   
4.     Dim sSQL As String
   
5.     If Not IsNull(Me.Combo2) Then
   
6.         strWhat = Me.Combo2
   
7.     Else
   
8.         Exit Sub
   
9.     End If
   
10.     Select Case strWhat
    
11.     Case Is = "全部"
    
12.         Criteria = ""
    
13.     Case Is = "正常"
    
14.         Criteria = "WHere 工资发放方式='现金' OR 工资发放方式='银行'"
    
15.     Case Else
    
16.         Criteria = "where 工资发放方式='" & strWhat & "'"
    
17.     End Select
    
18.     sSQL = "select * from 表1 " & Criteria
    
19.     Me.List0.RowSource = sSQL
    
20. End Sub

复制代码

Henry D. Sy

最好是通过一个查询条件表？
什么意思？

yhf

Henry D. Sy 发表于 2011-12-4 14:01
最好是通过一个查询条件表？
什么意思？

有请版主 Henry D. Sy ：   附件窗体1中列表框数据来源为查询1，请帮助用IIF语句写查询条件。谢谢！！！

yhf

Henry D. Sy 发表于 2011-12-4 14:01
最好是通过一个查询条件表？
什么意思？

有情版主Henry D. Sy ：附件中窗体1中列表框数据来源为查询1，窗体1sub为查询条件，请帮助用iif语句写出该查询。谢谢!!!

yhf

谢谢各位不吝赐教！