Ich habe mal wieder ein Migrations-Problem.
Ich erzeuge ein Temporären Index mit einem Record.
INDEX ON "1" to TEST record 10
Unter Clipper hat das wunderbar funktioniert.
Laut Beschreibung in Xbase++ sollte es auch so funktionieren.
Tut es aber bei mir nicht.
Xbase++ (R) Version 2.00.817
Mit dem Workaround
dbgoto(10)
INDEX ON "1" to TEST while recno() = 10
geht es.
Habs an Alaska gemeldet.
Code: Alles auswählen
PROC MAIN
// Irgend eine test.dbf sollte da sein
use test exclusive
do while lastrec() < 20
append blank
enddo
nRecNr := 10
clear screen
@0,0 say "Ohne Index"
dbedit(01,00,24,79)
// Lief bis jetzt unter clipper
index on "1" to test record (nRecNr)
OrdListClear()
set index to test
clear screen
@0,0 say "Mit Index und record"
dbedit(01,00,24,79)
// Workaround()
OrdListClear()
index on "1" to test while recno() = nRecNr
OrdListClear()
set index to test
clear screen
@0,0 say "Mit Index und Workaround"
dbedit(01,00,24,79)
return