VB.NET Code generiert einen Wert von 0, aber ich kann nicht sehen, wie das möglich ist

Question

Der folgende Code soll eine ID-Nummer generieren, wenn ein Client-Datensatz zu der Datei hinzugefügt wird. Aber die ID-Nummer, die es erzeugt, kommt immer als 0 heraus. Warum ist das?

For index = 1 To LOF(1)/Len(ClientRecord) 
      FileGet(1, ClientRecord, index) 
      If ClientRecord.ClientID > IDofClientRecord Then 
       IDofClientRecord = ClientRecord.ClientID 
      End If 
      IDofClientRecord = IDofClientRecord + 1 
      IDofClientRecord = ClientRecord.ClientID 
     Next 

Answer 1

Es gibt eine Menge, die Sie hier nicht angeben, aber lassen Sie uns einen Stich geben. Wenn die ID, die Sie zu erzeugen versuchen ClientRecord.ClientID ist, dann denke ich, das Ihr Problem ist:

IDofClientRecord = IDofClientRecord + 1

IDofClientRecord = ClientRecord.ClientID

Die zweite Zeile überschreibt die erste Linie und Sie machen nie Fortschritte. Wenn Sie die vorletzte Zeile umgekehrt zu:

ClientRecord.ClientID = IDofClientRecord

es funktionieren kann, aber das nimmt an Informationen nicht in der Aufzeichnung ;-)