如何以编程方式添加标签控件以devexpress xtrareport详细信息带

时间:2018-07-30 09:36:03

标签: .net vb.net devexpress xtrareport

我的数据库记录很少,我想以编程方式将其添加到报告的详细信息范围。我这样做的原因是因为有一个动态数据需要从其他表中提取。

我试图将代码放入Detail.BeforePrint事件中,但是第二条记录将包含第一条记录中的一条记录,第三条记录也将包含第一条记录,第二条记录,依此类推。

知道我在做什么错吗?

Dim _BiayaMeal As Integer = GetCurrentColumnValue("biaya_meal")
Dim _XrLabel As XRLabel = New XRLabel
_XrLabel.Text = _BiayaMeal 
_XrLabel.LocationF = New PointF(_LabelPointX, _LabelPointY)
_XrLabel.SizeF = New Size(100, 23)
_XrLabel.Font = New Font("tahoma", 8)
_XrLabel.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
_XrLabel.CanGrow = False
Me.Detail.Controls.Add(_XrLabel)

0 个答案:

没有答案