水晶报告问题 [英] Crystal Report question

问题描述

我需要帮助 - 我正在将VB6程序更新到Visual Studio 2008.我需要在VS2008中做的是：
- 打开Crystal Report
- 登录Crystal Report
- 设置format
-save Crystal Report as text。

这是VB6中的代码。我是VS2008的新手，所以我很难搞清楚这一点。

感谢您的帮助！

Dim crxApp作为新的CRAXDRT.Application
Dim crxRpt作为CRAXDRT.Report
Dim strRpt（）As String
Dim intRpt As Integer
Dim dtFirst，dtEnd As Date
Dim cn As New ADODB.Connection

cn.ConnectionString ='connection string'
cn.Open
< '>打印每日废料报告
选择案例DatePart（" w"，Date）
案例2,3,4,5,6
ReDim strRpt（3）
intRpt = 1
strRpt（1）=" Y：\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ "Y：\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ crxApp.OpenReport（strRpt（intRpt）&" .rpt"）

I need help with this - I am updating a VB6 program to Visual Studio 2008.  What I need to do in VS2008 is:
  - Open Crystal Report
  - log into Crystal Report
  -set the format
  -save Crystal Report as text.

Here is the code in VB6.  I'm new for VS2008 so I am having a hard time figuring this out.  

Thank you for your help!

    Dim crxApp As New CRAXDRT.Application
    Dim crxRpt As CRAXDRT.Report
    Dim strRpt() As String
    Dim intRpt As Integer
    Dim dtFirst, dtEnd As Date
    Dim cn As New ADODB.Connection
   
    cn.ConnectionString = 'connection string'
    cn.Open
   
    'Print daily scrap reports
    Select Case DatePart("w", Date)
        Case 2, 3, 4, 5, 6
            ReDim strRpt(3)
            intRpt = 1
            strRpt(1) = "Y:\MP\REPORTS\report1"
            strRpt(2) = "Y:\MP\REPORTS\report2"
            strRpt(3) = "Y:\MP\REPORTS\report3"
   
            'Print daily scrap reports
            For intRpt = 1 To 3
                Set crxRpt = crxApp.OpenReport(strRpt(intRpt) & ".rpt")

crxRpt.Database.Tables（1）.SetLogOnInfo" mylogoninfo" （不能 弄清楚如何在VS2008中做这个部分）
crxRpt.ReadRecords
crxRpt .DisplayProgressDialog = False

使用crxRpt.ExportOptions （如何设置导出选项）
.FormatType = crEFTPaginatedText
.UseDefaultCharactersPerInch = False
.UserDefinedCharactersPerInch = 10
.NumberOfLinesPerPage = 67
.DestinationType = crEDTDiskFile
.DiskFileName = strRpt（intRpt）& " .txt"
End with

crxRpt.Export（False）

下一个intRpt

                crxRpt.Database.Tables(1).SetLogOnInfo "mylogoninfo"   (can't figure out how to do this part in VS2008)
                crxRpt.ReadRecords
                crxRpt.DisplayProgressDialog = False
   
                With crxRpt.ExportOptions                               (how do I set the export options)   
                    .FormatType = crEFTPaginatedText
                    .UseDefaultCharactersPerInch = False
                    .UserDefinedCharactersPerInch = 10
                    .NumberOfLinesPerPage = 67
                    .DestinationType = crEDTDiskFile
                    .DiskFileName = strRpt(intRpt) & ".txt"
                End With
   
                crxRpt.Export (False)
            Next intRpt
            



           

推荐答案

您好Nancy，

您可以这样做：

// Namespaces。
使用CrystalDecisions.CrystalReports.Engine;
使用CrystalDecisions.Shared;

//打开Crystal Report

ReportDocument crReport = new ReportDocument（）;结果，crReport.Load（使用Server.Mappath（QUOT; CrystalReport1.rpt"））;结果，crReport.SetDatabaseLogon（QUOT; UID"，" PWD"）; //登录Crystal Report
CrystalReportViewer1.ReportSource = crReport; //查看报告
crReport.ExportToDisk（ExportFormatType.Text，" c：\\ temp \\ myRpt.txt"）; //将Crystal Report保存为文本。


希望它有所帮助！

A-G。

Hi Nancy,

You can do the following like this:

// Namespaces.
using CrystalDecisions.CrystalReports.Engine;
using CrystalDecisions.Shared;

//Open Crystal Report

ReportDocument crReport=new ReportDocument();
crReport.Load(Server.MapPath("CrystalReport1.rpt"));
crReport.SetDatabaseLogon("uid","pwd");                                              // log into Crystal Report
CrystalReportViewer1.ReportSource=crReport;                                       // View the report
crReport.ExportToDisk(ExportFormatType.Text,"c:\\temp\\myRpt.txt");  // save Crystal Report as text.


Hope it helps!

A-G.

这篇关于水晶报告问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！