Problem mit neuen Nodes in QuantumTreelist

[Corristo]

Guten Morgen,

Ich benutze eine cxDbTreelist-Komponente um eine Access-Datenbank strukturiert darzustellen. Die Aufgabe erfordert nun das auch neue Nodes im laufenden Programm erzeugt werden können. Aus der beiliegenden Demo werde ich nicht schlau. Wenn ich eine neue Node erzeuge mit dem Programm text den ich bereits habe erscheint folgender Fehler:

Im Projekt PPlaner.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00412F21 in Modul 'PPlaner.exe'. Lesen von Adresse 00000058' aufgetreten.

Delphi-Quellcode:

Procedure Tform1.InsertNode(ParentId: Integer);
Var Feld : TField;
    Dataset : TDataset;
begin
  Dataset := cxDbtreelist1.DataController.DataSet;
  dataset.DisableControls;
   try
   Feld := Dataset.FindField(cxdbTreelist1.datacontroller.ParentField);
   if Assigned(Feld) then
     begin
      Dataset.Insert;
      Feld.Value := ParentID;
     end;
   finally
    Dataset.EnableControls;
   end;
end;

Delphi-Quellcode:

procedure TForm1.NeueAufgabe1Click(Sender: TObject);
begin
 InsertNode (FHitnode.ParentValue);
end;

Was habe ich vergessen/übersehen? Werde seit einer Stunde nicht schlauer.
Grüße Christian

[dataspider]

Hi,

ich füge Datensätze wie folgt ein:

Delphi-Quellcode:

...
// Ereignis der Treelist 
TreeList.OnInitInsertingRecord     := TreeViewInitInsertingRecord;
...
// 
procedure TFRMBaseTreeList.TreeViewInitInsertingRecord(Sender: TObject;
    AFocusedNode: TcxTreeListDataNode; var AHandled: Boolean);
Var
  ADataSet: TDataSet;
  AFieldName: String;
begin
  if AFocusedNode <> nil then
  begin
    ADataSet := TcxDBTreeList(Sender).DataController.DataSet;
    if ADataSet.State in [dsEdit, dsInsert] then
    begin
      AFieldName := TcxDBTreeList(Sender).DataController.ParentField;
      if (GetKeyState(VK_SHIFT) < 0) then
        ADataSet.FieldByName(AFieldName).AsInteger := AFocusedNode.KeyValue
      else
        ADataSet.FieldByName(AFieldName).AsInteger := AFocusedNode.ParentValue;
    end;
  end;
end;
...
// Neuen Node erzeugen
TreeList.DataController.Insert;

Vielleich kommst du ja damit weiter.

Cu, Frank

[Corristo]

Vielen herzlichen Dank. Es funktiobniert bis auf einen kleinen Schönheitsfehler. Bei jeder neu erstellten Node gibt er einen Fehler an: Wert ID kann nicht verändert werden. Eine Idee woran das liegt?

[dataspider]

Hi,

ich tippe auf OptionsData.AutoCalcKeyValue.

Hast du das evtll. auf True, verwendest aber ein AutoIncrement Field?

Frank

[Corristo]

Wunderbar es Funktioniert

Großes Dankeschön an dich :D wieder was gelernt