关于报表的两个问题,熟悉datareport的请进~~~(在线等)

目前的报表如图:    http://www.qzjiali.com/report.jpg需要修改的地方:    1.  上图中表格只显示到记录最后一条处,和备注之间有一大段空当,我想用空的表格将空当补上使之看起来像个整体!
    2.  右边空白处留了较大空间,准备放一块与左边表格不相关的内容,从数据库的另一个表中读取!以下是部分代码:
Private Sub CmdPrintView_Click()
    
    Dim intCtrl As Integer
    Dim rs As Recordset
    
    If mclicknode Is Nothing Then
       Exit Sub
    End If
    If groad.QuerySomeDaySomeRoadBustimes(dtpdate.Value, Mid(mclicknode.Tag, 2), rs) Then
        Set DataReport2.DataSource = rs
        With DataReport2
            With .Sections("Section2").Controls
                For intCtrl = 1 To .Count
                    If TypeOf .Item(intCtrl) Is RptTextBox Or _
                       TypeOf .Item(intCtrl) Is RptFunction Then
                        .Item(intCtrl).DataMember = ""
                    End If
                Next intCtrl
            End With
        End With
    Else
        MsgBox groad.ErrDesc
    End If
    DataReport2.Sections("Section3").Controls("label19").Caption = Text1.Text
    DataReport2.Sections("Section4").Controls("label21").Caption = rs("roadname")
    DataReport2.Sections("Section2").Controls("label23").Caption = rs("companyname")
    DataReport2.Sections("Section2").Controls("label25").Caption = rs("groupname")
    DataReport2.Sections("Section2").Controls("label27").Caption = Date
    
    DataReport2.ShowEnd Sub
如果问题描述的不够清楚,可以在msn交流,谢谢~~   (MSN: [email protected])