以下代码是在程序中动态加入TextBox的代码。
Dim a As New DataDynamics.ActiveReports.TextBox()
Me.Detail.Controls.Add(a)
a.Location = New System.Drawing.PointF(3.188, 0)
a.Size = New System.Drawing.SizeF(2.063, 0.313)
a.DataField = "description"
a.Border.BottomStyle = BorderLineStyle.Solid
a.Border.LeftStyle = BorderLineStyle.Solid
a.Border.RightStyle = BorderLineStyle.Solid