'
' DATENBINDUNG
'
        Dim columnHeader As String
        Dim columnData As String
        Dim i As Integer
 
        ' Datenbindung ComboBox im Grid Dokumentationen
        _bsBauteile.DataSource = _dsTabelle.Tables("Tabelle")
 
        With Me.GridTabelle
 
            .Columns.Clear()
            .AutoGenerateColumns = False
            .AllowUserToDeleteRows = False
 
            i = -1
 
            columnHeader = "Bauteil-ID"
            columnData = "doanid"
            i = i + 1
            .Columns.Add(columnHeader, columnHeader)
            .Columns(i).DataPropertyName = columnData
            .Columns(i).Width = 100
 
            columnHeader = "Bezeichnung"
            columnData = "bezeichnung"
            i = i + 1
            .Columns.Add(columnHeader, columnHeader)
            .Columns(i).DataPropertyName = columnData
            .Columns(i).Width = 300
 
        End With
 
        ' GUI an DataView binden
        Me.GridTabelle.DataSource = _bsBauteile
 
'
' VALIDATION in eigener Komponente
'
        If Not (pDataSet.Tables("Tabelle").GetChanges() Is Nothing) Then
 
            ' funktioniert nicht mit GetChanges!!!!!
            'For Each row As DataRow In pDataSet.Tables("Tabelle").GetChanges( 
            ' ).Rows
            For Each row As DataRow In pDataSet.Tables("Tabelle").Rows
                row.ClearErrors()
                If String.IsNullOrEmpty(row.Item("doanid")) Then
                    row.SetColumnError("doanid", "Bauteil-Id nicht angegeben")
                End If
                If row.IsNull("bezeichnung") 
                   OrElse String.IsNullOrEmpty(row.Item("bezeichnung")) Then
                    row.SetColumnError("bezeichnung", "Bezeichnung nicht" & _
                      "angegeben")
                End If
            Next
 
        End If