这个问题谁都遇到过，大家讨论一下，100分散分了！！！！！！

Question

现有若干个设计好的ActiveReport2.0报表
另有一表单上有一个ARViewer控件，准备用此ARViewer控件显示已设计好的报表：
privante sub showreport(strReportName as string)
  select case trim(strReportName)
     case "ARkkk"  
        arviewer1.ReportSource=Arkkk
     case "ARabc"
        arviewer1.ReportSource=ARabc
     case "ARxyz"
        arviewer1.ReportSource=ARxyz
     …………
　 end select
   arviewer1.refresh
end sub
此方法谁看了都嫌笨死了，谁有更好的实现方法呢？这里的strReportName是传递的一个报表的名称（字符串型的，不可改成其他类型）

Answer 1

重新设计 参数类型
private sub showreport(objReportSource as Object)
   arviewer1.ReportSource=objReportSource
   arviewer1.refresh
end sub