Kann ich Strings, Singles usw. für "" und "Zero" verwenden?

Question

Ich habe einen Rekord:

Public Loon As LonenRecord 

Type LonenRecord 
    'Algemeen 
    Status As String * 1 
    TijdvakNr As Integer 
    TijdvakBegin As String * 10 
    TijdvakEinde As String * 10 

    Key As String * 10 
    WerkgeversNummer As String * 3 
    WnRecord As Integer 
    WerknemerNr As String * 4 
    AchterNaam As String * 25 
    Voorvoegsel As String * 15 
    and lots more 
end Type 

Ich möchte so leer alle auf "" oder Null

ich tun kann:

with Loon 
    .TijdvakNr = 0 
    .WerkgeversNummer = "" 
etc 
end with 

Gibt es eine einfache Möglichkeit, F. I. mit für jeden oder was auch immer?

Answer 1

Einem neuen Wert zuweisen, der sich im Standardzustand befindet.

'// return a new LonenRecord 
Function ResetLonenRecord as LonenRecord: End Function 

Dann:

'// overwrite variable 
Loon = ResetLonenRecord()