如何在 WPF 中刷新 CrystalReportViewer语言 - VB.NET

Question

知道如何在 wpf 中刷新 CrystalReportViwer - vb.net？我有两个水晶报告，第一个工作得很好，但第二个我需要单击刷新按钮以在水晶报告查看器中显示正确的数据。

我试图在加载报告时丢弃保存的数据，但没有帮助我。

公共课堂伊兹夫耶采

Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    'dinamički učitati crystal report iz baze podataka
    Dim cryRpt As New ReportDocument
    Dim CrTables As Tables
    Dim crtableLogoninfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    ' za dodati labele na crystal report
    Dim txtID As String = lblIDBroj.Content
    Dim txtPoduzece As String = lblPoduzece.Content


    cryRpt.Load("C:UsersStjepan JuricsourcereposPlataPlataCrystalReport1.rpt")

    With crConnectionInfo
        .ServerName = lblPath.Content.ToString()
        '.DatabaseName = ""
        '.UserID = ""
        'Password = "password"
    End With
    CrTables = cryRpt.Database.Tables
    For Each CrTable In CrTables
        crtableLogoninfo = CrTable.LogOnInfo
        crtableLogoninfo.ConnectionInfo = crConnectionInfo
        CrTable.ApplyLogOnInfo(crtableLogoninfo)
    Next
    cryRpt.SetParameterValue("TxtID", txtID)
    cryRpt.SetParameterValue("txtNaziv", txtPoduzece)
    cr1.ViewerCore.ReportSource = cryRpt

End Sub

Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)

    'dinamički učitati crystal report iz baze podataka
    Dim rep2 As New ReportDocument
    Dim CrTables As Tables
    Dim crtableLogoninfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    ' za dodati labele na crystal report
    'Dim txtID As String = lblIDBroj.Content
    'Dim txtPoduzece As String = lblPoduzece.Content

    rep2.Load("C:UsersStjepan JuricsourcereposPlataPlataCrystalReport2.rpt")

    With crConnectionInfo
        .ServerName = lblPath.Content.ToString()
        '.DatabaseName = ""
        '.UserID = ""
        'Password = "password"
    End With
    CrTables = rep2.Database.Tables
    For Each CrTable In CrTables
        crtableLogoninfo = CrTable.LogOnInfo
        crtableLogoninfo.ConnectionInfo = crConnectionInfo
        CrTable.ApplyLogOnInfo(crtableLogoninfo)
    Next
    'cryRpt.SetParameterValue("TxtID", txtID)
    'cryRpt.SetParameterValue("txtNaziv", txtPoduzece)
    cr1.ViewerCore.ReportSource = rep2

End Sub

结束类

Answer 1

我发现了问题所在。只需添加rep2.refresh即可解决它。

rep2.Load("C:UsersStjepan JuricsourcereposPlataPlataCrystalReport2.rpt")
rep2.Refresh()