Office中国论坛/Access中国论坛

标题: 【求助】选项卡控件不能按要求显示数据表 [打印本页]

---

作者: Dozen    时间: 2016-10-8 01:19
标题: 【求助】选项卡控件不能按要求显示数据表
有一个窗体，为了展示需要，需要用到选项卡控件分别对同一个数据表进行筛选后显示在不同的页的数据表中，代码如下，但无法正常运行，由于个人调试水平有限，无法找到问题的所在，请坛里的高手指点一下迷津，谢谢

代码如下

1. Option Compare Database
   
2. 
   
3. Private Sub brkCost_Change()
   
4. 
   
5.     Call brkFilter(Me.brkCost.Value)
   
6. 
   
7.     Me.Refresh
   
8.    
   
9. End Sub
   
10. 
    
11. Private Sub brkFilter(i As Integer)
    
12.     Select Case i
    
13.         Case 0:
    
14.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算使用'"
    
15.             Me.frmApplications_Sub.Form.FilterOn = True
    
16.         Case 1:
    
17.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算申请'"
    
18.             Me.frmApplications_Sub.Form.FilterOn = True
    
19.         Case 2:
    
20.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算调剂'"
    
21.             Me.frmApplications_Sub.Form.FilterOn = True
    
22.     End Select
    
23. End Sub
    

复制代码

附件如下，希望能具体指点一下为什么代码无法正确执行

[attach]60057[/attach]

---

作者: Dozen    时间: 2016-10-8 08:29
再顶一下

---

作者: tmtony    时间: 2016-10-8 09:29
你msgbox下filter里内容

---

作者: tmtony    时间: 2016-10-8 09:59
你3个子窗体 是3个不同的子窗体控件名啊

第2个要用
me.Child52.form.filter=
其它类推

---

作者: Henry D. Sy    时间: 2016-10-8 11:07

1. Private Sub brkFilter(i As Integer)
   
2.     Select Case i
   
3.     Case 0:
   
4.         Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算使用'"
   
5.         Me.frmApplications_Sub.Form.FilterOn = True
   
6.     Case 1:
   
7.         Me.Child52.Form.Filter = "fldSubject = '预算申请'"
   
8.         Me.Child52.Form.FilterOn = True
   
9.     Case 2:
   
10.         Me.Child54.Form.Filter = "fldSubject = '预算调剂'"
    
11.         Me.Child54.Form.FilterOn = True
    
12.     End Select
    
13. End Sub

复制代码

---

作者: Dozen    时间: 2016-10-8 12:13
谢谢楼上老师，问题已解决

---

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

Powered by Discuz! X3.3