0

我有一些用于在我的水晶报表查看器中执行水晶报表的代码，我已经设置了参数和 sql，但没有任何显示。有谁能够帮我？我是使用水晶报告的新手

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
    Dim crDatabase As Database
    Dim crTables As Tables
    Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
    Dim crTableLogOnInfo As TableLogOnInfo
    Dim crConnectionInfo As ConnectionInfo
    vRptED.Load("D:\FENNY\ReportsRecon\ReportRecon\Rp11\Revisi\BLReports7RevTrial.rpt")
    crConnectionInfo = New ConnectionInfo()
    crDatabase = vRptED.Database
    crTables = crDatabase.Tables

    With crConnectionInfo
        .ServerName = "172.24.34.57"
        .UserID = "sa"
        .Password = "sa"
        .DatabaseName = "REPORTS"
    End With

    crDatabase = vRptED.Database
    crTables = vRptED.Database.Tables

    For Each crTable In crTables
        crTableLogOnInfo = crTable.LogOnInfo
        crTableLogOnInfo.ConnectionInfo = crConnectionInfo
        crTable.ApplyLogOnInfo(crTableLogOnInfo)
    Next
    connString()
    Dim sql As SqlCommand
    sql = New SqlCommand("SELECT * from PLSummary51 ", con)
    Dim ddlValues1 As SqlDataReader
    Dim ds As New DataSet
    ddlValues1 = sql.ExecuteReader
    While ddlValues1.Read
        vRptED.SetParameterValue("BisnisUnit", "51")
        vRptED.SetParameterValue("CompID", "22")
    End While        
    CrystalReportViewer1.ReportSource = vRptED
    CrystalReportViewer1.Refresh()
End Sub
4

0 回答 0