✔ Problem mit DataBinding!

[maggo85]

hallo,

ich rufe aus einem hauptformular per klick auf einen button ein zweites formular auf, wo daten aus einer db angezeigt werden. beim laden (frmMaterial_Load) binde ich die textboxen an die entsprechenden inhalte as der db:

'Binden der Steuerelemente an die DB
        With Me
            .lblID.DataBindings.Add("Text", objDataView, "ID")
            .txtArtNr.DataBindings.Add("Text", objDataView, "ArtNr")
            .txtKategorie.DataBindings.Add("Text", objDataView, "Kategorie")
            .txtUnterKat.DataBindings.Add("Text", objDataView, "UnterKat")
            .txtBezeichnung.DataBindings.Add("Text", objDataView, "Bezeichnung")
            .txtEingang.DataBindings.Add("Text", objDataView, "MatEingang")
            .txtR1.DataBindings.Add("Text", objDataView, "Ref71100")
            .txtR1a.DataBindings.Add("Text", objDataView, "Ref71120")
            .txt71121.DataBindings.Add("Text", objDataView, "Ref71121")
            .txtR1b.DataBindings.Add("Text", objDataView, "Ref71130")
            .txtR1c.DataBindings.Add("Text", objDataView, "Ref71140")
            .txtR1d.DataBindings.Add("Text", objDataView, "Ref71BSI")
            .txt71160.DataBindings.Add("Text", objDataView, "Ref71160")
            .txt71161.DataBindings.Add("Text", objDataView, "Ref71161")
            .txtR1e.DataBindings.Add("Text", objDataView, "Ref71170")
            .txtR1f.DataBindings.Add("Text", objDataView, "Ref71180")
            .txtR2.DataBindings.Add("Text", objDataView, "Ref71200")
            .txtR3.DataBindings.Add("Text", objDataView, "Ref71300")
            .txt71310.DataBindings.Add("Text", objDataView, "Ref71310")
            .txtR3a.DataBindings.Add("Text", objDataView, "Ref71320")
            .txtR3b.DataBindings.Add("Text", objDataView, "Ref71330")
            .txtR3c.DataBindings.Add("Text", objDataView, "Ref71350")
            .txtR3d.DataBindings.Add("Text", objDataView, "Ref71380")
            .txtR4.DataBindings.Add("Text", objDataView, "Ref71400")
            .txtR4a.DataBindings.Add("Text", objDataView, "Ref71450")
            .txtR5.DataBindings.Add("Text", objDataView, "Ref71500")
            .txt71550.DataBindings.Add("Text", objDataView, "Ref71550")
            .txt71560.DataBindings.Add("Text", objDataView, "Ref71560")
            .txtR6.DataBindings.Add("Text", objDataView, "Ref71600")
            .txtR7.DataBindings.Add("Text", objDataView, "Ref71700")
            .txt71992.DataBindings.Add("Text", objDataView, "Ref71992")
            .txt71993.DataBindings.Add("Text", objDataView, "Ref71993")
            .txtMindestbestand.DataBindings.Add("Text", objDataView, "MindestBestand")
            .txtDrucker.DataBindings.Add("Text", objDataView, "Drucker")
        End With

wenn ich das formular nun schließe und es erneut per klick auf den button im hauptformular öffne, bekomme ich folgende fehlerrmeldung:

Dies führt dazu, dass sich zwei Bindungen der Auflistung an dieselbe Eigenschaft binden.
Parametername: binding

woran kann das liegen?

bitte helft mir, ist dringend!

mfg
maggo

 

[maggo85]

juhu, mein problem hat sich erledigt - man muss einfach beim schließen des formulars die ganzen bindungen löschen! hier noch der code beim klick auf den "schließen"-button:

Dim ctl as Object

For Each ctl in Me.Controls
     ctl.DataBindings.Clear()
Next

Me.Close()
objVerbindung.Close()

mfg
maggo