如何在Access报表中每隔N行显示一条粗线

如何在Access报表中每隔N行显示一条粗线

问题:

| 如何在报表中每隔N行显示一条粗线

如何为报表增加一个行号列?

回答:

|
__ __ __ __ 1、在设计模式里打开该报表,在报表主体里面加一个TextBox,把Name属性改为InputID。
__ __ __ __ 2、把InputID的控件来源(ControlSource)属性设置为=1;再把InputID的运行总和(RunningSum)属性改为“全部之上”(Over __ All)。
__ __ __ __ 注意 :如果把这个控件显示给用户看,你将得到一个以1为步进自动增长的行号列
__ __ __ __ 3、最后,在主体的格式化事件里输入如下代码:
| Private __ Sub __ Detail_Format(Cancel __ As __ Integer, __ FormatCount __ As __ Integer)
__ __ __ __ If __ (Me![InputID] __ Mod __ 5) __ = __ 0 __ Then
__ __ __ __ __ __ __ __ Me![Line19].BorderWidth __ = __ 3 __ __ '分隔线的名称为Line19
__ __ __ __ Else
__ __ __ __ __ __ __ __ Me![Line19].BorderWidth __ = __ 1
__ __ __ __ End __ If
End __ Sub

__ __ __ __ 4、预览报表就可以看到报表上每隔5行显示一行粗线。

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus