38 lines
1.3 KiB
VB.net
38 lines
1.3 KiB
VB.net
|
|
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
|