Private Sub FGrid_GetData(ByVal OZ As String)
        If BsMassen Is Nothing Then Return
        SetVorgang("Lese Daten zu Position")                        ' Anzeige 
        ' in der Statuszeile
        Dim DT As MassenDataTable = ProjDts.Massen
        Dim DV As New DataView(DT, "OZ LIKE '" & OZ & "'", "Adresse", _
          DataViewRowState.CurrentRows)
 
        Dim Zl As Integer = 0
        Try
            FGrid.Rows = DV.Count + 2
            For r As Integer = 0 To BsMassen.Count - 1
                Zl = r
                If intFN = 0 Then FGrid_SetHeader(FGrid) ' wenn kein Header 
                ' erzeugt wurde, dann jetzt
                FGrid.AutoRedraw = False
                FGrid.DisplayFocusRect = False
                EnableEvents = False
                FGrid.AllowUserResizing = FlexCell.ResizeEnum.Columns
                FGrid.Rows = BsMassen.Count + 2
                Dim MRow = DirectCast(DirectCast(DV.Item(r), DataRowView).Row, _
                  MassenRow)
                If MRow.OZ = aktOZ Then
                    Call Massenrow_to_FGridRow(FGrid, r + 1, MRow)      ' 
                    ' schreibt über eine Untersub die Zeile ins Grid
                    FGrid_Zeilenfomat(r + 1)                            ' passt 
                    ' das Format der Zeile an
                Else
                    FGrid.Rows = FGrid.Rows - 1                         ' eine 
                    ' Zeile abhacken
                End If
                ProgressVorgang(CInt(r / DV.Count * 100))               ' 
                ' Fortschritt anzeigen
            Next
            Dim z As Integer = FGrid.Rows - 1
            For c As Integer = 0 To DT.Columns.Count - 1
                FGrid.Cell(z, c).Text = vbNullString                    ' 
                ' letzte Zeile im Grid als Leerzeile
            Next
            FGrid.AutoRedraw = True
            FGrid.Refresh()
        Catch ex As Exception
            Debug.Print(String.Format("Fehler im Hauptform FGrid_GetData bei" & _
              "Zeile {0}", Zl))
        End Try
        EnableEvents = True
        SetVorgang("Lese Daten zu Position", True)                  ' 
        ' Statuszeile zurücksetzen
    End Sub

Danke für die Hilfe

Gruß Christian