Public Sub Datensatz_Anzeigen()
  ' aktuellen Datensatz in der Bildschirmmaske anzeigen
 
  Dim i As Integer
 
  For i = 1 To 7
    Text1(i).Text = FeldInhalt(Tabelle(i))
  Next i
 
  cmdMoveFirst.Enabled = CanMovePrevious(Tabelle)
  cmdMovePrevious.Enabled = CanMovePrevious(Tabelle)
  cmdMoveNext.Enabled = CanMoveNext(Tabelle)
  cmdMoveLast.Enabled = CanMoveNext(Tabelle)
 
  ' aktuellen Index anzeigen
  If Tabelle.Index = "Nr" Then
    Combo1.ListIndex = 0
  ElseIf Tabelle.Index = "Name" Then
    Combo1.ListIndex = 1
  Else
    Combo1.ListIndex = 2
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de