Office中国论坛/Access中国论坛

标题: 关于筛选子窗体的内容的代码 [打印本页]

---

作者: daxin1    时间: 2011-9-28 23:09
标题: 关于筛选子窗体的内容的代码
我想在主窗体里面做个按钮 直接筛选子窗体内容大哥哥帮帮忙啊。[attach]46789[/attach]

我上传附件请帮忙写下啊。[attach]46790[/attach]

---

作者: 咱家是猫    时间: 2011-9-28 23:44
.............

---

作者: daxin1    时间: 2011-9-29 00:39
版主 还在吗 为什么我ME.后面找不子窗体啊?

---

作者: daxin1    时间: 2011-9-29 00:45
我明白了谢谢版主

---

作者: daxin1    时间: 2011-9-29 00:56
版主 两个条件一起显示出来怎么写啊？

---

作者: Henry D. Sy    时间: 2011-9-29 11:06

1. '---------------------------------------------------------------------------------------
   
2. ' Procedure : Command9_Click
   
3. ' DateTime  : 2011/9/29 11:01
   
4. ' Author    :  Henry D. Sy
   
5. ' Purpose   :
   
6. '---------------------------------------------------------------------------------------
   
7. '
   
8. Private Sub Command9_Click()
   
9.     Dim strSQL As String
   
10.     Dim strWhat As String
    
11.     Dim intI As Integer
    
12. 
    
13.     On Error GoTo Command9_Click_Error
    
14. 
    
15.     If IsNull(Me.条件) Then
    
16.         MsgBox "请输入条件"
    
17.         Exit Sub
    
18.     End If
    
19.     intI = Len(Me.条件)
    
20.     strWhat = Left(Me.条件, intI - 1)
    
21.     strSQL = "SELECT 订单.* FROM 订单 WHERE 货主名称 IN (" & strWhat & ") ORDER BY 订单.货主名称"
    
22.     Me.订单.Form.RecordSource = strSQL
    
23. 
    
24.     On Error GoTo 0
    
25.     Exit Sub
    
26. 
    
27. Command9_Click_Error:
    
28. 
    
29.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
30. 
    
31. End Sub

复制代码

---

作者: daxin1    时间: 2011-9-29 18:49

Henry D. Sy 发表于 2011-9-29 11:06

[attach]46805[/attach]
版主你好 谢谢你的解答
我现在只是想我要筛选的条件写在代码里  
你要是有时间帮我看下能否写出来  附件里已写好条件
{:soso_e100:}

---

作者: Henry D. Sy    时间: 2011-9-30 11:58
请描述清楚点，到底你要得到什么样子的结果！

---

作者: daxin1    时间: 2011-10-1 09:32
[attach]46821[/attach]版主你好
我要筛选子窗体的条件固定的所以要写在代码里，这样我只要点一下就能看到想看的东西了
麻烦你看下能否写出来  谢谢了

---

作者: daxin1    时间: 2011-10-2 21:10
那位大哥哥帮帮忙啊，这个问题是不是无解啊

---

作者: Henry D. Sy    时间: 2011-10-3 10:34

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. 
    

复制代码

[attach]46837[/attach]

---

作者: daxin1    时间: 2011-10-3 20:56
非常感谢{:soso_e179:}

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3