access子报表难题

t小宝

子报表是可以知道自己在主报表的哪个子报表控件中的，子窗体也一样，这个以前研究过，
你的例子中在子报表的打开事件中输入以下代码即可：

1.     Dim ctr As Control
   
2. 
   
3.     For Each ctr In Me.Parent.Controls
   
4.         If ctr.ControlType = acSubform Then
   
5.             If ctr.SourceObject = "报表." & Me.Name Then
   
6.                 If Nz(ctr.Report.RecordSource) = "" Then
   
7.                     Me.RecordSource = "SELECT 颜色 FROM mdata WHERE 名称='" & ctr.Tag & "'"
   
8.                     Exit Sub
   
9.                 End If
   
10.             End If
    
11.         End If
    
12.     Next

复制代码

t小宝

lmj9401 发表于 2012-7-11 15:52
这个想法非常棒，但是我发现“Each ctr In Me.Parent.Controls”扫描控件的顺序一定要与子控件的初始化顺 ...

忘记复制一行错误处理的代码：
On Error Resume Next

前面加上这句就没问题了。