报表布局问题

目标报表：


现在：




这是现在设置完columnCount 为2时显示的样式，但是details部分的第二列数据显示不能和前面相齐，我所能解决的办法是将报表右侧往前拉升，直至两列正好紧凑，但目标报表最后还有一列需要显示，所以
想请问怎么调整到和目标报表一样，最后一列该怎么布局，谢谢

brainmao 你好

能将你的报表模板发给我调试一下，应该是分栏宽度设置的问题，具体解决方法需要调试之后才能得到。

HI DOF

我想要的效果是在detail 中的columnCount 设置为2迭代显示时样式如下图所示




现在的效果是下图，不能调制整齐




最后：
在上述基础上，我想在最后加上一列如效果图片一样，该怎么添加，好像在设置了columnCount为2时在最后添加就不能显示了


A4纸张的设置上下左右的余白一致，通过属性样式设置上下左右距离相同还是要通过代码去控制，可否提供一个实例


下面附上代码:


谢谢

brainmao 你好

在分栏报表中有几个值是需要你注意的
1、纸张大小，通过Me.PageSettings.PaperKind属性设置
2、页边距大小，通过Me.PageSettings.Margins设置
3、大于宽度，通过PrintWidth设置
4、分栏数量，通过ColumnCount设置
5、栏间距，通过ColumnSpacing设置

要实现效果图的样子，你需要计算每栏中控件宽度之和刚好等于  （纸张宽度-左边距-有边距-栏间距）/ 分栏数量

具体请参考附件中的示例

1. Public Class SectionReport1
   
2. 
   
3.     Private Sub SectionReport1_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
   
4.         Me.PageSettings.PaperKind = Printing.PaperKind.A4
   
5.         Me.PageSettings.Margins.Top = 0.5
   
6.         Me.PageSettings.Margins.Bottom = 0.5
   
7.         Me.PageSettings.Margins.Left = 0.5
   
8.         Me.PageSettings.Margins.Right = 0.5
   
9.     End Sub
   
10. End Class

复制代码

Hi Dof

感谢，现在就剩下最后一列 该如何添加呢

brainmao

这是你该报表的全部截图吗，报表中是否还有其它内容，因为从3楼的截图来看，在最右侧添加一个空白列的需求已经超出了区域报表的使用范围，如果3楼截图是报表的全部内容，我需要尝试其它方法来实现该报表的功能。

回复 6楼dof的帖子

帮忙回答一下，3楼截图的空白列是程序要求要添加的。

回复 7楼adolfgzb的帖子

就是想知道 该如何添加，因为设置了columncount的迭代的时候 后面再自定义textbox 没法显示，若是代码手动添加，该如何取得，怎么添加，谢谢

最后一列只能在报表的 ReportEnd事件中来进行代码绘制，基本方法如下：

1.     Private Sub SectionReport1_ReportEnd(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportEnd
   
2.         Dim dt As System.Data.DataTable
   
3.         dt = DirectCast(DataSource, System.Data.DataTable)
   
4.         For index = 0 To (dt.Rows.Count / 2)
   
5.             Me.Document.Pages(0).DrawRect(6.5, 0.58 + 0.2 * index, 1, 0.2)
   
6.         Next
   
7.     End Sub

复制代码

回复 9楼dof的帖子

OK 谢谢DOF