VB中使用Grid++报表

         前段时间做机房收费系统的时候，在周结账单的报表中添加窗体中选定的时间段要在报表中显示，在这一点上一直没有弄清楚。今天无意中从一些代码中弄明白了。主要是在窗体中动态的添加一个静态文本框来显示我们需要的文字。代码和主要的窗体界面如下，供大家一起研究学习

Option Explicit
Dim Report As grproLibCtl.GridppReport

Private Sub Rshow()
    Dim strSQL As String
    Dim strMsg As String
    strSQL = "select * from checkweek_info where date<='" & Format(cboTimeStart.Text, "yyyy-mm-dd") & "' and date<='" & Format(cboTimeEnd.Text, "yyyy-mm-dd") & "'"
    
    Set Report = New grproLibCtl.GridppReport
    Report.LoadFromFile (App.Path & "\checkWeek.grf")   '加载模版
    Report.DetailGrid.Recordset.ConnectionString = ConnString   '数据源
    Report.DetailGrid.Recordset.QuerySQL = strSQL               '通过SELECT查询创建记录集
        
    '=================报表中自定义控件================
    Dim Reportheader As IGRReportHeader
    Dim StaticBox As IGRStaticBox
    
    Set Reportheader = Report.InsertReportHeader
    
    '插入一个静态文本框,显示需要显示的文字
    Set StaticBox = Reportheader.Controls.Add(grctStaticBox).AsStaticBox
    StaticBox.Text = cboTimeStart.Text & "   至   " & cboTimeEnd.Text
    StaticBox.Width = 500
    '======================================================
    
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start
End Sub

Private Sub cmdRefresh_Click()
    GRDisplayViewer1.Refresh     '刷新
End Sub

Private Sub cmdView_Click()
    Report.PrintPreview (True)     '打印预览
End Sub

Private Sub cmdPrint_Click()
    Report.[Print] (True)        '打印
End Sub