关于筛选子窗体的内容的代码

Henry D. Sy

1. Private Sub Command2_Click()
   
2.     On Error GoTo Command2_Click_Error
   
3. 
   
4.     Me.订单.Form.Filter = "状态 like '*中*'"
   
5.     Me.订单.Form.FilterOn = True
   
6. 
   
7.     On Error GoTo 0
   
8.     Exit Sub
   
9. 
   
10. Command2_Click_Error:
    
11. 
    
12.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
13. End Sub
    
14. Private Sub Command3_Click()
    
15.     Dim strWhere As String
    
16.     On Error GoTo Command3_Click_Error
    
17. 
    
18.     strWhere = "取消=false and 完成任务=false and 出货是否=false and not 发货日期 is null"
    
19.     Me.订单.Form.Filter = strWhere
    
20.     Me.订单.Form.FilterOn = True
    
21. 
    
22.     On Error GoTo 0
    
23.     Exit Sub
    
24. 
    
25. Command3_Click_Error:
    
26. 
    
27.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
28. End Sub
    
29. Private Sub Command4_Click()
    
30.     Me.订单.Form.Filter = ""
    
31.     Me.订单.Form.FilterOn = False
    
32. End Sub
    
33. Private Sub Command5_Click()
    
34.     Dim strWhere As String
    
35.     On Error GoTo Command5_Click_Error
    
36. 
    
37.     strWhere = "货主城市 in ('北京','上海','济南')"
    
38.     Me.订单.Form.Filter = strWhere    '
    
39.     Me.订单.Form.FilterOn = True
    
40. 
    
41.     On Error GoTo 0
    
42.     Exit Sub
    
43. 
    
44. Command5_Click_Error:
    
45. 
    
46.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
47. End Sub
    
48. 
    

复制代码

daxin1

非常感谢{:soso_e179:}