VB中使用Grid++報表

         前段時間做機房收費系統的時候，在周結賬單的報表中添加表單中選定的時間段要在報表中顯示，在這一點上一直沒有弄清楚。今天無意中從一些代碼中弄明白了。主要是在表單中動態添加一個靜態文字框來顯示我們需要的文字。代碼和主要的表單介面如下，供大家一起研究學習

Option ExplicitDim Report As grproLibCtl.GridppReportPrivate 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.StartEnd SubPrivate Sub cmdRefresh_Click()    GRDisplayViewer1.Refresh     '重新整理End SubPrivate Sub cmdView_Click()    Report.PrintPreview (True)     '預覽列印End SubPrivate Sub cmdPrint_Click()    Report.[Print] (True)        '列印End Sub