代码解释，谢谢！

Question

关于数据报表的控制
详细方法看MSDN

Answer 1

' 下面是一个循环了,对报表控件中Section1一节的每一个控件进行处理，但是没有看到循环的结束       =====虾米sailor
For Each Ctl In DataReport1.Sections.Item("Section1").Controls  'Section1
         Select Case TypeName(Ctl)
                Case "RptLabel"     '如果是RptLabel类型控件就加到DSec1_RptLbl_Collection中，并清空标题       =====虾米sailor
                     DSec1_RptLbl_Collection.Add Ctl
                     Ctl.Caption = ""
                Case "RptShape"    '如果是RptShape类型控件就加到DSec1_RptLbl_Collection中    =====虾米sailor
                     DSec1_RptShp_Collection.Add Ctl
                Case "RptTextBox"   '如果是RptTextBox类型控件就先使其值与adoRecordsetX数据集中第一个字段帮定，再加到DSec1_RptLbl_Collection中    =====虾米sailor
                     Ctl.DataField = adoRecordsetX.Fields.Item(0).Name '先将所有TextBox(RptTextBox) 控件绑定到某一字段
                                                                       '否则报错！
                     DSec1_RptTxt_Collection.Add Ctl
                Case "RptLine"    '如果是RptLine类型控件就加到DSec1_RptLbl_Collection中    =====虾米sailor
                     DSec1_RptLine_Collection.Add Ctl
                Case "RptImage"    '如果是RptImage类型控件就加到DSec1_RptLbl_Collection中    =====虾米sailor
                     DSec1_RptImg_Collection.Add Ctl
         End Select'还没有结束呢??????????????? =====虾米sailor

Answer 2

RptLabel  表示一个标签
RptShape  表示一个Shape
RptTextBox  表示一个文本框
RptLine    表示一条线
RptImage  表示一个Image