|
在实际运用中,我们常有这样的问题,打一张表,只有一或两条记录,但你总不能就打这两个吧,那多难看啊!所以就得把格子画下去,画满。我终于找到了,,(内容如下);可我总感到有点不方便,过去在学VFP时,我记得可以进行检验有多少条记录,,不足的可以补足,,这样就可以打满了,,各位看看,应当如何做呢???
Private Sub Report_Page()
Dim rpt As Report, lngColor As Long
Dim i As Integer
Set rpt = Reports!当前报表
rpt.ScaleMode = 7
lngColor = RGB(255, 0, 0)
rpt.Line (2.503, 2.5)-(4.735, 6.588), lngColor, B
rpt.Line (7.354, 2.5)-(9.074, 6.588), lngColor, B
rpt.Line (10.317, 2.5)-(12.037, 6.588), lngColor, B
rpt.Line (13.81, 2.5)-(15.952, 6.588), lngColor, B
rpt.Line (19.123, 2.5)-(19.123, 6.588), lngColor
For i = 1 To 7
rpt.Line (0.4, 2.5 + (i - 1) * 0.584)-(19.123, 2.5 + i * 0.584), lngColor, B
Next i
End Sub |
|