Dev Express Report 动态表头设置

例：比如一个表头有多个值组成，但要实现动态显示时，要经过以下几步操作来完成;

步骤一：把要显示的动态值分开，把要实现动态的控件放到XrPanel中，前端设计完成；

步骤二：Dev Express Report 代码中写公共过程，方便在程序中调用传值，以下过程目的，码数数量小于等于15只显示一行码数及数量，码数数量小于等于30只显示二行码数及数量，以此类推。。。。（主要是实现XrPanel控件的显示及高度控制）

 Public Sub GetSizeDisPlay(ByVal IntSizeDisPlay As Object)
        Select Case IntSizeDisPlay
            Case Is <= 15
                Me.XrPanel1.Visible = False
                Me.XrTable3.Visible = False
                Me.XrTable11.Visible = False
                Me.XrPanel1.HeightF = 0
                Me.ReportHe