filtern von Daten zwischen 2 Daten im crystal-Reports-Bericht vb.net

Brauche ich etwas Hilfe für die Erstellung von Crystal Reports in VB 2005.

Ich filtern möchten Daten zwischen zwei Datumsangaben (wie von-Datum und bis-Datum) mit datetimepicker.
Ich bin mit SQL Server 2000 für die Verbindung.

Update:

Danke für den link, aber ich versuche, mithilfe der Datensatzauswahlformel....

Hier ist mein code:

Try
        Dim cryRpt As New ReportDocument
        With cryRpt
            .FileName = ("C:\Documents and Settings\Ratna Ayu\My Documents\Visual Studio 2005\Projects\Denda\Denda\CrystalReport1.rpt")
            .RecordSelectionFormula = "{pinjam.tglkembali}>='" & DateTimePicker1.Value.ToString("dd/MM/yyyy") & "' and {pinjam.tglkembali} =<'" & DateTimePicker2.Value.ToString("dd/MM/yyyy") & "'"

        End With
        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    Catch ex As Exception
        MsgBox("tdk ada data", , "")
    End Try

InformationsquelleAutor irienaoki0407 | 2009-12-11

crystal-reports

0

Haben Sie einen Blick auf diesen link

Zum Laden und Anzeigen von Crystal Reports in VB.NET

Der folgende code zeigt, wie Sie zu laden
Crystal-Reports-Berichte in VB.NET, Lösung
die Fragen der Anmeldung, einschließlich sub
Berichte und parameter übergeben. Sie können
Ihre Berichte anzeigen einfach durch Aufruf von
die gewünschten Funktionen mit
Parameter.

InformationsquelleAutor Adriaan Stander

Public Sub ConfigureCrystalReportsPhotoAlbum2012ByDateNew()
        On Error Resume Next
        sReport = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & "PhotoAlbum2012.rpt"
        sReport.Load(reportPath)
        Dim selectionFormula As String = "{MemberDetails.Birthdate} >= #" _
            & CDate(frmCustomReport.txtFrom.Text) _
            & "# and {MemberDetails.Birthdate}" _
            & "<=" _
            & "#" _
            & CDate(frmCustomReport.txtTo.Text) _
            & "#"
        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        'myConnectionInfo.ServerName = "192.168.0.2\SQLExpress" 'Network
        myConnectionInfo.ServerName = ".\SQLExpress"   'Local
        myConnectionInfo.DatabaseName = "Photo Album 2012"

        myConnectionInfo.UserID = "limitedPermissionAccount"
        myConnectionInfo.Password = ""

        myConnectionInfo.IntegratedSecurity = True
        SetDBLogonForReport(myConnectionInfo, sReport)
        frmMain.CrystalReportViewerMain.SelectionFormula = selectionFormula 

        frmMain.CrystalReportViewerMain.ReportSource = sReport
        frmMain.CrystalReportViewerMain.Zoom(100)
        frmMain.CrystalReportViewerMain.BackColor = Color.AliceBlue
    End Sub

Anstatt nur nach einem block von code, bitte erklären, warum dieser code löst das gestellte problem. Ohne eine Erklärung, das ist nicht ein Antwort.

InformationsquelleAutor Harrison Mburu

Geht das zu weit einfach diesen code verwenden, sehr leicht.
Ich baute ein Beispiel-Kontakt-Anwendung und einen Bericht für Sie, und verwendet den folgenden code zum filtern der Kontakte nach start-und end-Datum. DateTimePicker1 start und DateTimePicker2 ist Ende.

Private Sub filter_dates()
    Dim objcr As New CrystalReport1
    Dim da As New MySqlDataAdapter("select * from Contacts where CDate>='" & CDate(DateTimePicker1.Text) & "' and CDate<='" & CDate(DateTimePicker2.Text) & "' ", conn)
    Dim dt As New DataTable
    da.Fill(dt)
    objcr.SetDataSource(dt)
    CrystalReportViewer1.ReportSource = objcr
    CrystalReportViewer1.RefreshReport()
End Sub

InformationsquelleAutor Teddy Mazuri

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.