查询按钮代码设置

Henry D. Sy

搜索刘小军。

qp370982

老师，我看过刘小军老师的查询窗体，上面没说怎样解决

qp370982

老师，只要把14楼的例子稍加改动，有时候查询时，不需要对“情况”组合框中的情况进行选择

Henry D. Sy

你至少要传一个能说明你的问题的例子，
发现，你心里想的，跟你的附件差很远。

qp370982

老师，你看看这个例子
1、可以同姓名、单位、日期、考勤情况设置查询情况（根据具体要求）
2、“单位”中的车间就是同时对一班、二班进行查询
3、“考勤情况”中的违反劳动纪律就是同时对迟到、早退、、旷工进行查询
例如：当“单位”为车间，“时间”为2007-01-03，“考勤情况”为违反劳动纪律时，点击“查询”按钮，就是查询2007年01月03日，一班和二班中，有关迟到、早退、旷工的情况

qp370982

老师你多帮忙

qp370982

老师你多帮忙

ygzhx

[:50] [:50] [:50]

Henry D. Sy

更新在楼下

[ 本帖最后由 Henry D. Sy 于 2008-12-27 10:38 编辑 ]

Henry D. Sy

违反劳动纪律时，这一点我原来没有看明白。
现在帮你修正

1. Dim ctl As Control
   
2. 
   
3. Private Sub Command16_Click()
   
4.     Dim strCriteria As String
   
5.     For Each ctl In Me.Controls
   
6.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
   
7.             If Not IsNull(ctl) Then
   
8.                 Select Case ctl.Name
   
9.                 Case "所在班组"
   
10.                     If ctl <> "车间" Then
    
11.                         strCriteria = strCriteria & ctl.Name & " like '" & ctl _
    
12.                                     & "' And "
    
13.                     End If
    
14.                 Case "考勤情况"
    
15.                     If ctl <> "违反劳动纪律" Then
    
16.                         strCriteria = strCriteria & ctl.Name & " like '" & ctl _
    
17.                                     & "' And "
    
18.                     Else
    
19.                         strCriteria = strCriteria & ctl.Name & _
    
20.                                     " in ('迟到','早退','旷工') And "
    
21.                     End If
    
22.                 Case "日期"
    
23.                     strCriteria = strCriteria & ctl.Name & "=#" & ctl & "# And "
    
24.                 Case Else
    
25.                     strCriteria = strCriteria & ctl.Name & " like '" & ctl & _
    
26.                                   "' And "
    
27.                 End Select
    
28.             End If
    
29.         End If
    
30.     Next
    
31.     If strCriteria <> "" Then
    
32.         strCriteria = Left(strCriteria, Len(strCriteria) - 5)
    
33.     End If
    
34.     Me.考勤管理子窗体.Form.Filter = strCriteria
    
35.     Me.考勤管理子窗体.Form.FilterOn = True
    
36. End Sub
    
37. 
    
38. Private Sub Command17_Click()
    
39.     For Each ctl In Me.Controls
    
40.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
    
41.             ctl = Null
    
42.         End If
    
43.     Next
    
44.     Me.考勤管理子窗体.Form.FilterOn = False
    
45. End Sub

复制代码