Hallo , also nachdem ich den CODE nochmal umgeschrieben bzw angepasst habe bleibt das Problem das gleiche,
wenn der Index beim start nach einem APPEND nicht neu aufgabaut wird stimmt gar nix mehr !!!
D.H. solange das Programm nicht beendet wird funktioniert alles problemlos !
Starte ich mit dem INDEX das Programm neu OHNE ihn NEU zu erstellen funktioniert NICHTS MEHR , weil der INDEX "DEFEKT" ist oder was er da immer macht !
Es ist definitiv so, dass vor dem append die richtige Datenbank in der aktive WorkArea offne ist , der index offen ist und ich durch "Set order to tag" bzw ordsetfocus()
auch der TAG passt .
Das ist ja alles durch ?select(),?alias(),?ordList(),?ordsetfocus() anzeigbar
Übrigens ob ich schreibe "set order to tag "tdat1"" bzw "set order to tag tdat1" ist egal bzw das gleiche
Auf jeden Fall muß er normalerweise den INDEX richtig aktualisieren wenn ein APPEND gemacht wird , wenn definitiv die WORKAREA passt und der INDEX offen bzw AKTIV ist ,
WAS ER NICHT MACHT , WARUM AUCH IMMER !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ich habe jetzt mal die termin1 Datenbank gelöscht und das Jahr 2016 angelegt und dann ein APPEND gemacht ... verwende ich den INDEX nach dem NEUSTART des Programms weiter
wird nach "set order to tag tdat1" im BROWSE z.B. das neu angelegte Datum am Ende des Jahres angezeigt WARUM AUCH IMMER ????!
Hier mal die Datenbank mit INDEX ohne und mit NEUAUFBAU , vielleicht kann das ja mal jemand bei sich anzeigen lassen !! Mit einem selbst kompilierten Programm
dazu braucht es ja nur :
Code: Alles auswählen
#include "foxdbe.ch"
#include "cdxdbe.ch"
#include "dmlb.ch"
SET COLLATION TO GERMAN
SET DATE TO GERMAN
SET EPOCH TO year(date())-80
SET CENTURY ON
IF ! DbeLoad( "FOXDBE", .t.)
Alert( "FOXDBE" + MSG_DBE_NOT_LOADED , {"OK"} )
ENDIF
IF ! DbeLoad( "CDXDBE", .t.)
Alert( "CDXDBE" + MSG_DBE_NOT_LOADED , {"OK"} )
ENDIF
IF ! DbeBuild( "FOXCDX","FOXDBE","CDXDBE" )
Alert( "FOXCDX" + MSG_DBE_NOT_CREATED , {"OK"} )
ENDIF
DbeSetDefault("FOXCDX")
und
Code: Alles auswählen
use termin1
SET INDEX TO termin1.CDX
SET ORDER TO TAG tdat1
browse()
der LINK ist ZippyShare:
http://www101.zippyshare.com/v/ihgxC9nH/file.html
Wäre schön , wenn das mal einer überprüft. DANKE
MFg Klaus