查询按钮代码设置

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

复制代码

Henry D. Sy

将原日期控件删掉

Private Sub Command16_Click()
    Dim strCriteria As String
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
            If Not IsNull(ctl) Then
                Select Case ctl.Name
                Case "所在班组"
                    If ctl <> "车间" Then
                        strCriteria = strCriteria & ctl.Name & " like '" & ctl _
                                    & "' And "
                    End If
                Case "考勤情况"
                    If ctl <> "违反劳动纪律" Then
                        strCriteria = strCriteria & ctl.Name & " like '" & ctl _
                                    & "' And "
                    Else
                        strCriteria = strCriteria & ctl.Name & _
                                    " in ('迟到','早退','旷工') And "
                    End If
                Case "日期开始"
                    strCriteria = strCriteria & "日期>=#" & ctl & "# And "
                Case "日期结束"
                    strCriteria = strCriteria & "日期<=#" & ctl & "# And "
                Case Else
                    strCriteria = strCriteria & ctl.Name & " like '" & ctl & _
                                  "' And "
                End Select
            End If
        End If
    Next
    If strCriteria <> "" Then
        strCriteria = Left(strCriteria, Len(strCriteria) - 5)
    End If
    Me.考勤管理子窗体.Form.Filter = strCriteria
    Me.考勤管理子窗体.Form.FilterOn = True
End Sub

Henry D. Sy

不用再做任何增加，你可以先试试查询备注看看呀。

Henry D. Sy

原帖由 boy1 于 2009-1-9 16:09 发表
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then 这句什么意思？有什么作用？

如果控件的类型是文本框或组合框，那么