Dim sect, ctl
  For Each sect In DataReport1.Sections
      For Each ctl In sect.Controls
        select case ctl.Name
        case "..."
        
        end select
        MsgBox ctl.Caption
      Next ctl
  Next sect
这个问题以前出现过.