CrossSectionBox相关

收藏

我想在程序里动态添加一个CrossSectionBox1，具体写程序的时候，把它add到哪个section呢？

Me.Sections(&quot

ageHeader").Controls.Add(arControl)
Me.Sections(&quot

ageFooter").Controls.Add(arControl)
Me.Sections("Detail").Controls.Add(arControl)

谢谢？

ZenosZeng · ZenosZeng

private void rptTest_ReportStart(object sender, EventArgs e)
{
CrossSectionBox cs = new CrossSectionBox();
cs.Bottom = 0.25F;
cs.Left = 3F;
cs.LineWeight = 1F;
cs.Name = "cs1";
cs.Right = 5F;
cs.Top = 0.25F;
this.groupHeader1.Controls.Add(cs);
//this.pageHeader.Controls.Add(cs);
}

复制代码

jessie · jessie

我的报表没有 groupHeader

ZenosZeng · ZenosZeng

CrossSectionBox 只能被添加到header中，如果没有Groupheader就只能添加到pageHeader中了

jessie · jessie

好奇怪，为什么我add到 pageheader里面显示不出来呢，程序不报错

ZenosZeng · ZenosZeng

New一个CrossSectionBox 对象之后，需要设置它的Bottom 、Left 、Right 、Top 、LineWeight、LineColor 和Name 属性，请参考2楼中的代码。

jessie · jessie

Dim tb As New DataDynamics.ActiveReports.CrossSectionBox
            Dim pf As New System.Drawing.PointF
            Dim pf2 As New System.Drawing.PointF

            pf.X = 0
            pf.Y = 0
            pf2.X = 5
            pf2.Y = 5
            tb.Start = pf
            tb.End = pf2
            tb.Visible = True
Me.Sections(&quot

ageHeader").Controls.Add(arControl)
以上写法，不显示

Dim tb As New DataDynamics.ActiveReports.CrossSectionBox
            tb.Left =0
            tb.Top = 0
            tb.Width = 5
            tb.Height = 5
            tb.LineWeight = 3
            tb.Visible = True
            Me.Sections(&quot

ageHeader").Controls.Add(arControl)
这种写法，也不显示

ZenosZeng · ZenosZeng

从你的代码来看在添加控件的代码时我不理解：
Me.Sections(&quot

ageHeader").Controls.Add(arControl)
应该是这样的吧
Me.Sections(&quot

ageHeader").Controls.Add(tb)

Dim tb As New DataDynamics.ActiveReports.CrossSectionBox
tb.Left = 0.1
tb.Top = 0.1
tb.Width = 3
tb.Height = 5
tb.LineWeight = 3
tb.Visible = True
Me.Sections("PageHeader1").Controls.Add(tb)

复制代码

jessie · jessie

阿，这样可以看见了，但是还有一个问题
            tb.Left = 0.1
            tb.Top = 0.1
            tb.Width = 1000
            tb.Height = 10

            tb.LineWeight = item.borderT
            tb.Visible = True
            Me.Sections(&quot

ageHeader").Controls.Add(tb)

我这样写，不管 tb.Width = 1000还是 tb.Width = 3，都页面上显示一个细细长长的框，好像宽度设置根本没起作用，不知道怎么回事

ZenosZeng · ZenosZeng

其实你可以在报表的视图添加一个CrossSectionBox控件，如何查看它的各个属性设置：

'
'CrossSectionBox1
'
Me.CrossSectionBox1.Bottom = 0.15!
Me.CrossSectionBox1.Left = 0.0!
Me.CrossSectionBox1.LineWeight = 1.0!
Me.CrossSectionBox1.Name = "CrossSectionBox1"
Me.CrossSectionBox1.Right = 6!
Me.CrossSectionBox1.Top = 0.15!

复制代码

		自动登录	找回密码
密码			立即注册

CrossSectionBox相关

9 个回复

回复 5# jessie 的帖子

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人