Private Sub Abfrage3()
 
        Dim dtAuswertung As New DataTable
        Dim i As Integer = 0
 
        With dtAuswertung
            With dtAuswertung
                Dim IDCol As DataColumn = dtAuswertung.Columns.Add("ID", _
                  Type.GetType("System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Daten", Type.GetType("System.String"))
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dtAuswertung.Columns("ID")
        dtAuswertung.PrimaryKey = primaryKey
 
        For Each r As DataRow In dt1.Rows
 
            If Not IsDBNull(r("Fahrgestellnummer")) Then
                Dim newRow As DataRow = dtAuswertung.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Daten") = r("Fahrgestellnummer") & " - " & r("Status") _
                  & " [SN-" & r("Seriennummer") & "]"
 
                dtAuswertung.Rows.Add(newRow)
 
                End If
 
        Next
 
 
        Dim fBericht As New frmBericht
 
        fBericht.dtErgebnis = dtAuswertung
        fBericht.ShowDialog()
 
    End Sub

Public Class frmBericht
 
    Private _dtErgebnis As DataTable
 
    Public Property dtErgebnis As DataTable
        Get
            Return _dtErgebnis
        End Get
        Set(ByVal Value As DataTable)
            _dtErgebnis = Value
        End Set
    End Property
 
    Private Sub frmBericht_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        dgvErgebnis.DataSource = dtErgebnis
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 20.06.17 um 18:09:53 editiert.