例：比如一個表頭有多個值組成，但要實現動態顯示時，要經過以下幾步操作來完成;

步驟一：把要顯示的動態值分開，把要實現動態的控件放到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.ReportHeader.HeightF = Me.ReportHeader.HeightF - 254 '報表表頭動態：加XrPanel控件后，先設置XrPanel的高度，后設置ReportHeader高度（不加XrPanel控件，ReportHeader設置高度無效）
? ? ? ? ? ? Case Is <= 30
? ? ? ? ? ? ? ? Me.XrTable11.Visible = False
? ? ? ? ? ? ? ? Me.XrPanel1.HeightF = 127
? ? ? ? ? ? ? ? Me.ReportHeader.HeightF = Me.ReportHeader.HeightF - 127 '報表表頭動態：加XrPanel控件后，先設置XrPanel的高度，后設置ReportHeader高度（不加XrPanel控件，ReportHeader設置高度無效）
? ? ? ? End Select
? ? End Sub

步驟三：調用界面中代碼

'DEV XRport 報表對象
? ? ? ? Dim Report As New ReportsOrderManagement.frmC030_rpt02rpt() ?‘報表對象

?'DEV XRport 尺碼顯示控制
? ? ? ? Dim sqlSizeDisPlay As String
? ? ? ? Dim FDSSizeDisPlay As New DataSet
? ? ? ? sqlSizeDisPlay = "select SizeNo ?from VC031_C030_C032 ?where ProdiD='" & txtProdID.Text & "' order by convert(int,Field2) " ?’查詢當前單據中尺碼
? ? ? ? FDSSizeDisPlay = op.exesqlreds(sqlSizeDisPlay)
? ? ? ? Report.GetSizeDisPlay(FDSSizeDisPlay.Tables(0).Rows.Count)‘把尺碼數量傳入報表過程中

’數據源部分省略。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

? ? '設置數據源
? ? ? ? Report.DataSource = ds

? ?‘報表顯示

?Report.ShowPreviewDialog()

總結

以上是生活随笔為你收集整理的Dev Express Report 动态表头设置的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。