Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
  If Grid1.Cols = 5 Then
    ' check, ob Spalte schon angefügt ist 
    If Val(.CellText(1)) > 100 Then ' check auf Wert in selber Zeile 
      .CellText(5) = "X" ' Wert in hinzugefügter Spalte setzen 
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de