【求助】选项卡控件不能按要求显示数据表

Dozen

有一个窗体，为了展示需要，需要用到选项卡控件分别对同一个数据表进行筛选后显示在不同的页的数据表中，代码如下，但无法正常运行，由于个人调试水平有限，无法找到问题的所在，请坛里的高手指点一下迷津，谢谢

代码如下

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
    

复制代码

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

Dozen

谢谢楼上老师，问题已解决

Henry D. Sy

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

复制代码

tmtony

你3个子窗体 是3个不同的子窗体控件名啊

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

tmtony

你msgbox下filter里内容
来自: 微社区

Dozen

再顶一下