Office中国论坛/Access中国论坛

标题: 关于报表的主体边线问题？ [打印本页]

作者: hongjian 时间: 2002-8-6 19:44
标题: 关于报表的主体边线问题？
关于报表的主体边线问题？
　
在我写报表的时候发现：
我在主体里有一个大的矩形框（用于边框画表的边线），里内含一个数据表（子表）。
当子表数据（设置为四个）在同一页内，矩形框出现，与页眉＋主体＋页脚的矩形框形成一
个完整的边线框。
　　但是，当如果数据超出四个，即出现第五个记录在第二页的时候，
主体里的矩形框－－在第二页却不见了？而页眉－页脚的边框却在。

何解？多谢！
　是否空行要增加表线？

附上例子！
文件下载

作者: 明莱 时间: 2002-8-6 23:48
我运行怎么报表会出错，好像在LINE语句。

作者: hongjian 时间: 2002-8-6 23:57
版主能帮忙吗？
请按－预览键进行测试！我这里没有出错！
多谢朋友的帮助！　十分多谢！

[此贴子已经被作者于2002-8-6 15:56:58编辑过]

作者: hongjian 时间: 2002-8-9 01:18
标题: 我好似记得有这种办法：
我好似记得有这种办法：
　　　当最后一页数据未满时，自动填写表格线的功能！具体方法不记得，
有朋友会吗？请指教！

如果能用下面的方法就最好了！

一个通用：报表补线模块
＝＝＝＝＝＝＝＝＝＝
Option Compare Database
Option Explicit
Dim f, i As Long
'借签了　Green Ng　兄的代码

Private Sub Report_Open(Cancel As Integer) '加空行的直线

End Sub

Private Sub ReportFooter_FORMat(Cancel As Integer, FORMatCount As Integer) '加空行的横线

If [Page] = [Pages] Then
f = DCount("*", "computer")
f = 33 - (f Mod 31)
'Me![Linebase].Height = Me![Linebase].Height * f '尾直线高 = LineBase * f
For i = 0 To 5　　　　'加直线从 Line0 到 Line5?
　 Me("Line" & i).Height = Me("Line" & i).Height * f
　 Me("Line" & i).Visible = True
Next

For i = 1 To f
　Me.Line (Me![Line5].Left, Me.Section(0).Height * i)-(Me![Line0].Left, Me.Section(0).Height * i)
Next

End If

End Sub

作者: 大頭 时间: 2003-12-21 12:46
報表边线的畫法
Private Sub Report_Page()

Me.Line (1, 1)-(Me.ScaleWidth, Me.ScaleHeight), , B

End Sub
[em06][em06][em06]

[此贴子已经被作者于2003-12-21 4:47:36编辑过]

作者: tmtony 时间: 2003-12-21 19:05
简单、实用：）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)