Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
  Dim nID As Long
  Dim i As Integer
  dicke = 0
  kosten = 0
 
  With Item
  .CellText("Gesamtkosten") = ""
  .CellText("Gesamtdicke") = ""
   For i = 1 To 6
    'Schichtname für Schichten 1-6 ermitteln und anzeigen
    nID = Val(.CellText("Schicht" & i))
    .CellText("Schicht" & i) = ""
    If nID > 0 Then
      rs_schicht.Seek "=", nID
      If Not rs_schicht.NoMatch Then
        .CellText("Schicht" & i) = rs_schicht.Fields("Schichtname")
        dicke = dicke + rs_schicht.Fields("Schichtdicke")
        kosten = kosten + rs_schicht.Fields("Kosten")
      End If
    End If
    Next i
 
    .CellText("Gesamtkosten") = "" & kosten
    .CellText("Gesamtdicke") = "" & dicke
  End With
End Sub

Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
  Dim i As Integer
  For i = 1 To 6
  If nCol = Grid1.GetCol("Schicht" & i) Then
    With oComboBox
      ' Recordset erstellen und zuweisen
      Set .Recordset = db.OpenRecordset("SELECT SchichtID, Schichtname," & _
        "Material, Schichtdicke, Kosten FROM tblSchicht ORDER BY Schichtname")
 
      ' Spalte ID an das Datenfeld AufbauID aus dem DataGrid-Recordset binden
      .BoundColumn = 1
 
      ' Aufbauname-Spalte an die TextBox im EditMode binden
      .DisplayColumn = 2
 
      ' Breite der ComboBox festlegen
      .Width = 3100
 
      ' Aufklapphöhe der ComboBox auf 10 Zeilen festlegen
      .ListRowsMax = 8
 
      ' ID-Spalte ausblenden
      .ColVisible(1) = False
 
      ' Breite der Spalten setzen
      .ColWidth(2) = 1100
      .ColWidth(3) = 1100
      .ColWidth(4) = 450
      .ColWidth(4) = 450
 
    End With
  End If
  Next i
 
End Sub