TreeView и DBgrid

[Dryid466]

Не получается сделать следующее: Построение дерева идет в TreeView из базы данных, нужно чтобы при щелчке на ветку, открывались связанные данные в DBgrid (отображались). Эти данные связанны по id, тобишь по идее надо как то назначить TreeView - параметр Node -> id из базы, и при щелчке чтобы в DBgrid было отображение...

Тобишь нужно создать построение дерева с назначением этих параметров...

[Аватар]

Засунь в свойство Data этот id, как Pointer(Id). Считывай как Integer(Data)

[Dryid466]

А как точнее в виде кода?

[Serge_Bliznykov]

Сообщение от Dryid466

Построение дерева идет в TreeView из базы данных

покажите в виде кода.

[Dryid466]

У меня на данный момент вот таким образом строится дерево

  
  if tRazdels.IsEmpty then Exit;

  TreeView1.Items.Clear;

  Q1.SQL.Clear;
  Q1.SQL.Add('select * from Razdels where R_Parent=0');
  Q1.Open;
  if Q1.IsEmpty then Exit; 
  while not Q1.Eof do begin
    TreeView1.Selected := nil;
    TreeView1.Items.Add(TreeView1.Selected,
Q1.FieldByName('R_Name').AsString);
    Q1.Next;
  end; //while

  Q1.SQL.Clear;
  Q1.SQL.Append('select r.R_Name, d.R_Name '+
                    'from Razdels r, Razdels d '+
                    'where r.R_Num=d.R_Parent');
  Q1.Open;
  if Q1.IsEmpty then Exit; 
  Q1.First;
  while not Q1.Eof do begin TreeViewAddChild(Q1.Fields[0].AsString, Q1.Fields[1].AsString);
    Q1.Next;
  end; //while

 
  TreeView1.FullExpand;

[Serge_Bliznykov]

Сообщение от Dryid466

TreeViewAddChild:
Q1.SQL.Clear;

вот в этой строчке реально двоеточие после TreeViewAddChild ?!!

попробуйте ознакомиться с TTreeNode.Data Property

[Dryid466]

нет нет, это комментарий был, этой строчки в коде нет, убрал в коде выше

[Serge_Bliznykov]

я добавил ссылочку. там есть пример.

[Dryid466]

жалко только что тут все по отдельности в примере))

[Dryid466]

 
  if tRazdels.IsEmpty then Exit;
 
  TreeView1.Items.Clear;
 
  Q1.SQL.Clear;
  Q1.SQL.Add('select * from Razdels where R_Parent=0');
  Q1.Open;
  if Q1.IsEmpty then Exit;  
 
  while not Q1.Eof do begin
    TreeView1.Selected := nil;
    //TreeView1.Items.Add(TreeView1.Selected,Q1.FieldByName('R_Name').AsString);
    TreeView1.Items.AddChildObject(nil,Q1.FieldByName('R_Name').AsString,Pointer(Q1.FieldByName('R_Num').AsInteger));
    Q1.Next;
  end; //while

 
  Q1.SQL.Clear;
  Q1.SQL.Append('select r.R_Name, d.R_Name '+'from Razdels r, Razdels d '+ 'where r.R_Num=d.R_Parent');
  Q1.Open;
  if Q1.IsEmpty then Exit;  
  Q1.First;
  while not Q1.Eof do begin

  TreeViewAddChild(Q1.Fields[0].AsString, Q1.Fields[1].AsString);
 
    Q1.Next;
  end; //while

 
  TreeView1.FullExpand;

Назначение TreeNode выполняется успешно, но только для главного узла, а что на счет дочерних, не выходит, в чем косяк?