报表

Option Explicit

Dim WithEvents Report As grproLibCtl.GridppReport   ‘声明 report 具有报表控件的事件

Dim starttime As Date

Dim endtime As Date

 

Private Sub cmdpreview_Click()

  Report.PrintPreview (True)   ‘ 报表预览

End Sub

 

Private Sub cmdprint_Click()

Report.[Print] (True)           ‘打印报表

End Sub

 

Private Sub cmdrefresh_Click()

  Dataview.Stop                               ‘刷新报表

  Set Report = New grproLibCtl.GridppReport       ‘实例化一个报表

  Report.LoadFromFile (App.Path & "/ 客户基本信息 .grf")  ‘加载报表文件

  Report.DetailGrid.Recordset.connectionstring = "filedsn=andy.dsn;UID=sa;pwd=123456" 

‘建立连接，也可以在创建报表的时候

  Report.DetailGrid.Recordset.QuerySQL = "select * from daily_account where daily_time between '" & starttime & "' and '" & endtime & "'"  ‘报表查看的内容

  Dataview.Report = Report       ‘查看报表

  Dataview.Start                ‘开始显示

 

End Sub