Zeilen in Listbox löschen bei Doppelklick
16.08.2007 09:01:00
eddman
ich habe ein kleines Problemchen! Über Textbox-Eingaben füttere ich eine Tabelle und zeige diese wiederum mit RowSource in einer ListBox an. Mit Doppelklick auf eine Zeile in der ListBox hole ich die Daten zum Bearbeiten in die jeweilige Textbox zurück. Gebe ich die Daten nun an die Tabelle zurück erscheinen die Daten doppelt! Klar! Wie kann ich die Zeile im Moment des Dopelklicks löschen, sodass es zu keinen doppelten Werten kommt? Hier der Code-Auszug:
'Doppelklick in Liste
Private Sub lstTabelle_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
txtKunde.Text = lstTabelle.List(lstTabelle.ListIndex, 0)
cboStatus.Text = lstTabelle.List(lstTabelle.ListIndex, 1)
cboRef.Text = lstTabelle.List(lstTabelle.ListIndex, 2)
txtVertrag.Text = lstTabelle.List(lstTabelle.ListIndex, 3)
txtNAK.Text = lstTabelle.List(lstTabelle.ListIndex, 4)
txtLauf.Text = lstTabelle.List(lstTabelle.ListIndex, 7)
cboZahlungen.Text = lstTabelle.List(lstTabelle.ListIndex, 8)
cboBeginn.Text = lstTabelle.List(lstTabelle.ListIndex, 9)
txtCI.Text = lstTabelle.List(lstTabelle.ListIndex, 10)
txtRe.Text = lstTabelle.List(lstTabelle.ListIndex, 11)
txtRate.Text = lstTabelle.List(lstTabelle.ListIndex, 13)
txtRW.Text = lstTabelle.List(lstTabelle.ListIndex, 14)
txtExtern.Text = lstTabelle.List(lstTabelle.ListIndex, 15)
End Sub