Me.Cursor = Cursors.WaitCursor
        For i = 0 To 
            'hier suche ich ob eingelagert:
            Dim Anz = (From Eintrag In LagerDB.Lagerdetails
                       Where Eintrag.RowState <> DataRowState.Deleted _
                         AndAlso Eintrag.ArtikelID = BS_SD_Maximo_TypRow.ID
                       Select Eintrag).Count
 
            If Anz > 0 Then
                'in die Rows.cells soll der Wert geschrieben werden
                ArtikelDataGridView.Rows(0).Cells("ColBestand").Value = Anz & "" & _
                  "ST"
            Else
                ArtikelDataGridView.Rows(0).Cells("ColBestand").Value = Anz
            End If
        Next i
        Me.Cursor = Cursors.Default

  Private Sub ArtikelDataGridView_SelectionChanged(sender As Object, e As _
    EventArgs) Handles ArtikelDataGridView.SelectionChanged
        If ArtikelDataGridView.Rows.Count = 0 OrElse _
        ArtikelDataGridView.SelectedRows.Count = 0 Then Return
        Dim aktreihe As Integer = ArtikelDataGridView.SelectedRows(0).Index
        Me.Cursor = Cursors.WaitCursor
 
        'hier suchen ob eingelagert:
        Dim Anz = (From Eintrag In LagerDB.Lagerdetails
                   Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                     Eintrag.ArtikelID = BS_SD_Maximo_TypRow.ID
                   Select Eintrag).Count
 
        If Anz > 0 Then
            ArtikelDataGridView.Rows(aktreihe).Cells("ColBestand").Value = Anz _
              & " ST"
        Else
            ArtikelDataGridView.Rows(aktreihe).Cells("ColBestand").Value = Anz
        End If
 
        Me.Cursor = Cursors.Default
    End Sub