This is a part of code that works already for years in an old Harbour FWH application
Now in the new HB and FWH it gives an error after executing the next line.
The error = Error Base 1086 Argument Error ++
In a small function that only consists of a for next, it works fine.
After rewriting the code with a do while structure incrementing i with the ++ operator the problem was still there.
Changing i++ in
i := i +1 gives a working solution.
But changing every for next in a do while is not the solution I think.
Any ideas ?
Greetings,
Willy Hermans
Function RadFrm
Parameters aVelden,cDbf
Local Open1 , Open2, i:=0 , j :=0
Privat aTabs:={}, anReg:={5},Ptr:=0,lFolders := .F.,nPos := 100,;
nButNr := 45
Dstk_Push()
Open2 := Is_Open_Dbf("Objekten",1)
Select Velden
* Bepaal of er folders voorkomen
For i := 1 To Len(aVelden)
Goto aVelden[i]
If !Empty(Velden->Folder)
lFolders := .T.
Ptr := aScan(aTabs,Velden->Folder)
If Ptr = 0 && Niks gevonden
Aadd(aTabs,Velden->Folder)
Aadd(anReg,5)
EndIf
Ptr := Len(anReg)
EndIf
Next
...Now in the new HB and FWH it gives an error after executing the next line.
The error = Error Base 1086 Argument Error ++
In a small function that only consists of a for next, it works fine.
After rewriting the code with a do while structure incrementing i with the ++ operator the problem was still there.
Changing i++ in
i := i +1 gives a working solution.
But changing every for next in a do while is not the solution I think.
Any ideas ?
Greetings,
Willy Hermans
