Private Sub Form_Load()
  With Grid1
    ...
    Set .Recordset = ...
 
    ' Spalten-Eigenschaften
    .Columns(Spaltenindex).InputType = TYPE_TEXT
    ...
  End With
End Sub
 
Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid.ListItem)
  With Item
    If Val(.CellText(Spaltenindex)) = 0 Then .CellText(Spaltenindex) = ""
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de