Type Inhalte leeren

[bada-edv]

Hallöchen

Ich habe da ein kleines Problem.
Ich habe mir mit

    Private Type XY
        FeldA as String
        FeldB as String
        FeldC as String
    End Type

    Dim Container as XY

einen Container erstellt, der in einer Prozedur mit DAten gefüllt wird. Gibt es einen Befehl der alle Inhalte dieses Containers löscht? Oder muss ich explicit alle Felder ansprechen und einen Nullstring einfuegen.

Ich hatte schon versucht mit

 Set Container = nothing

Füe eure Hilf bedanke ich mich im vorraus

 

[Zvoni]

Set Container=Nothing funktioniert nur für Objekte, nicht für UDT's

bei UDT's geht nur per einzelnes Ansprechen der einzelnen Members.

 

[jsowa]

Was Zvoni sagt, stimmt nur zum Teil. Natürlich kann man einen Datensatz leeren indem man jedes einzelne Mitglied zurücksetzt.

Es geht aber auch einfacher mit Hilfe einer temp. Datensatzvariablen.

Folgendes Beispiel zeigt das.

Private Type XY
    FeldA As String
    FeldB As String
    FeldC As String
End Type

Sub Test()
    Dim Container As XY
    Dim tmp As XY
    
    Container.FeldA = "1"
    Container.FeldB = "2"
    Container.FeldC = "3"
    
    ' Jetzt mit einer einzigen Anweisung
    ' den kompletten Datensatz leeren.
    
    Container = tmp

End Sub