Discussion :

[Invité]

Bonjour,

Je suis sous delphi 2010 et j'utilise le composant TcxDBTreeList afin de créer une arborescence via des données importer d'une base de données.

En cliquant sur un bouton je souhaite créer un child au noeud sélectionné et permettre à l'utilisateur de rentrer les éléments qu'ils souhaitent dans les colonnes.

Pour cela j'utilise le code suivant pour la création du child :

Treesec1.FocusedNode.AddChildFirst;

Le child se crée bien mais une fois que je vais dedans et que je tente de saisir une information, il s'efface et les données viennent se rentrer dans le parent.
J'ai tenté pas mal de possibilité depuis hier, et je suis presque certain que c'est tout bête. Merci d'avance.

[ShaiLeTroll]

si ce TcxDBTreeList fonctionne comme un TTreeView, AddChildFirst renvoi le noeud créé !

Pense qu'un composant DB, ne se manipule pas en directement, je ne connais pas ce TcxDBTreeList mais il doit être préférable de modifier le DataSet contenant les données, l'ajout de nouvelle ligne devrait se manifester par la création de nouveau nœud, la position dans l’arborescence doit surement être faite par le contenu des champs (ou alors un système Maître-Détail)

[Invité]

Je viens de tomber sur une démo fournit avec le composant, et effectivement il y a une modification au niveau du dataset. Dès que j'ai compris l'exemple et si je le comprends, je poste la solution pour ceux que ça pourraient intéressés

[Invité]

Je viens apporter un début de solution, mais j'ai une violation d'accès. J'ai repris l'exemple en l'adaptant à mon cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
private
    FHitNode: TcxDBTreeListNode;
 
 
procedure TMAIN.AjoutNivInfClick(Sender: TObject);
begin
InsertNode(FhitNode.KeyValue);
 end;
 
 
procedure TMain.InsertNode(AParentID: Integer);
var
  ADataSet: TDataSet;
  AField: TField;
begin
  ADataSet := Treesec1.DataController.DataSet;
  ADataSet.DisableControls;
  try
    AField := ADataSet.FindField(Treesec1.DataController.ParentField);
    if Assigned(AField) then
    begin
      ADataSet.Insert;
      AField.Value := AParentID;
    end;
  finally
    ADataSet.EnableControls;
  end;
end;

[ShaiLeTroll]

Comme c'est un composant non standard, tu devrais poser ta question aux spécialites : ExpressQuantumTreeList Forum
Pense à récupérer la dernière version de cette lib, c'est peut-être un bug chez eux aussi !

[Invité]

Je vais faire ça je te remercie

[Invité]

Après plusieurs tentatives infructueuses j'ai la solution que voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
//procedure ajout noeud
procedure TMain.InsertNode(AParentID: Integer);
var
  ADataSet: TDataSet;
  AField: TField;
begin
  ADataSet := Treesec1.DataController.DataSet;
  ADataSet.DisableControls;
  try
    AField := ADataSet.FindField(Treesec1.DataController.ParentField);
    if Assigned(AField) then
    begin
      ADataSet.Insert;
      AField.Value := AParentID;
    end;
  finally
    ADataSet.EnableControls;
  end;
end;
 
// Ajout niveau inférieur
procedure TMAIN.AjoutNivInfClick(Sender: TObject);
begin
  insertnode(TcxDbTReelistNode(Treesec1.FocusedNode).KeyValue);
  ZDBPGA.QRY_PGA_SECSOC.Value := SOC.Text
end;