TVirtaulTable will kein Append

[franktron]

Ich habe ein TVirtualTable das ich über TMyQuery fülle, das klappt auch Edit klappt auch nur Append und Insert gehen nicht State Springt dann auf dsBrowse was mache ich falsch

Delphi-Quellcode:

IndexFieldNames:='nr';
        Filtered:=False;
        Last;
        i:=FieldByName('nr').AsInteger+1;
        If i=0 then i:=1;

        Append; <<state ist dsBrowse
        FieldByName('nr').AsInteger:=i; <<  Error nicht im einfüge oder Edit Modus
        FieldByName('loeschen').AsInteger:=0;
        Post;
        Filtered:=True;

[baumina]

Mach mal um das Append ein try...except drumrum und lass dir die Fehlermeldung anzeigen.

[franktron]

Es kommt kein exception nur wenn ich die Felder Füllen will, weil append den State auf dsBrowser ändert

[baumina]

Hast du ein BeforeInsert oder AfterInsert zugewiesen? Wenn ja, was passiert da drin?

[franktron]

Nein nix das ist ja so seltsam ich habe schon alles geguckt.

Ereignisse in der Table keine
Edit geht nur Append und Insert nicht


Wenn ich ein Edit vor dem Append mach geh der state auf dsEdit und beim Append danach auf dsBrowse ???

[baumina]

Mir scheint du arbeitest mit einem WITH drumrum, evtl. gibt es auch eine Procedure in deinem Project, die Append heißt und somit diese statt der des Datasets verwendet wird.

[franktron]

Hab den Fehler ist die Grid die im Enabled=False steht wenn ich die abkoppel dann gehts.