Работа с UserDataset

Комментарии

• Mandor

  November 2006 отредактировано 19:49

  Вот вызов построения отчета:

     Public Sub ShowReport()
          Dim mReportParam As Collection
          Dim rsTmp As ADODB.Recordset
  
          mReportParam = New Collection
          mReportParam.Add(VB6.Format(Today, "dd.mm.yyyy"), "dRepDate")
          mReportParam.Add(sUserName, "dRepPerson")
  
          rsTmp = New ADODB.Recordset
          gSqlServerTemp.SQLSelect("select * from " & mTblSwerka, rsTmp)
  
          gReports.DataFields = _
              "nnsch" + Environment.NewLine + _
              "atr_name" + Environment.NewLine + _
              "sql_val" + Environment.NewLine + _
              "fox_val" + Environment.NewLine + _
              "direct" + Environment.NewLine
          gReports.CreateReport(1, mReportParam, rsTmp)
  
          rsTmp.Close()
          rsTmp = Nothing
  
          mReportParam = Nothing
      End Sub