Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As Object)
  Dim nid, pid As Long
 
  With Item
    nid = Val(.CellText("IdNebenKostenArt"))
    .CellText("IdNebenKostenArt") = ""
    If nid > 0 Then
      RSkosten.Seek "=", nid
      If Not RSkosten.NoMatch Then
        .CellText("IdNebenKostenArt") = RSkosten.Fields("NebenKostenArt")
       End If
    End If
    pid = Val(.CellText("Leistungsphase"))
    .CellText("Leistungsphase") = ""
    If pid > 0 Then
      RSLeistungsp.Seek "=", pid
      If Not RSLeistungsp.NoMatch Then
        .CellText("Leistungsphase") = RSLeistungsp.Fields("Bezeichnung")
       End If
    End If
    If CBool(.CellText("Pauschal")) = True Then
    .Column("Prozent").LockEdit = True
    .CellText("Prozent") = 0
    Else
    .Column("Prozent").LockEdit = False
    End If
  End With
End Sub