Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Data
Imports VERAG_PROG_ALLGEMEIN

Public Class subRptSendungenVorkosten

    Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing

    Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.VORKOSTEN = VORKOSTEN
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format

        txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
        txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
        txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")

    End Sub

    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
        Dim dt As New DataTable
        dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
        dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
        dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
        For Each s In VORKOSTEN
            dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
        Next
        Me.DataSource = dt
    End Sub
End Class