Private Sub Grid1_RowLoaded(ByVal nRow As Long, oItem As sevdatagrid2.ListItem)
    With oItem
    .FixColText(1) = CStr(nRow)
 
    .CellText(5) = CalcTime(.CellText(2), .CellText(3), .CellText(4))
    .CellText(9) = Format$(.CellText(7) / 100 * .CellText(8), Grid1.Columns( _
      9).DisplayFormat)
    .CellText(10) = Format$(.CellText(5) * .CellText(7), Grid1.Columns( _
    10).DisplayFormat)
 
    ' Fehlerbehandlung, falls kein Datum eingetragen
    On Error Resume Next
    Select Case Weekday(Grid1.Recordset(0), vbSunday)
      Case 1, 7
        .ForeColor = vbRed
    End Select
    On Error GoTo 0
    ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de