Question

有谁知道如何在wpf-vb.net中刷新CrystalReportViwer？我有两个CrystalReports，第一个工作得很好，但是第二个我需要单击“刷新”按钮以在Crystalreport Viewer中显示正确的数据。

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

伊兹维切斯公开课

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:\Users\Stjepan Juric\source\repos\Plata\Plata\CrystalReport1.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:\Users\Stjepan Juric\source\repos\Plata\Plata\CrystalReport2.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:\Users\Stjepan Juric\source\repos\Plata\Plata\CrystalReport2.rpt")
rep2.Refresh()

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

1 个答案: