внесение данных из базы в treeview

[chircov090993]

Здравствуйте! Есть в базе 2 таблицы. в первой ID и имя поля. во второй - id, Имя, и id первой таблицы. Цель - добавить в treeview данные из обеих таблиц, вложения должны быть организованы так - значение из первой таблицы и в нем все , которые имеют id как из первой таблицы
код:

var
nnod,nnor: TTreeNode;
field: string;
b,n,b1,n1: integer;
begin
b:=0;
n:=0;
b1:=0;
n1:=0;
TreeView1.Items.BeginUpdate;
TreeView1.SortType:=stNone;
TreeView1.Items.Clear;
DataModule2.k1.First;

if DataModule2.k1.RecordCount>0 then
begin
   while not DataModule2.k1.Eof do
      begin
       b:=DataModule2.k1['id_kateg']   ;
         n:=DataModule2.k1['Kateg_name']  ;
      nnod:=TreeView1.Items.Add(nil, DataModule2.k1['Kateg_name'] );
      field:=DataModule2.k1.Fields[0].AsString;

          if DataModule2.pk1.RecordCount>0 then
             begin

             DataModule2.pk1.First;
             while not DataModule2.pk1.Eof do
                begin
                    b1:=DataModule2.pk1['id_kateg']   ;
         n1:=DataModule2.pk1['Podkateg_1_name']  ;
         if b=b1 then
                    begin
                nnor:=TreeView1.Items.AddChild(nnod,DataModule2.pk1['Podkateg_1_name'] );
                DataModule2.pk1.Next;
end;

                end;
             end;
DataModule2.k1.Next;
end;
end;
DataModule2.k1.Filter:='';
DataModule2.pk1.Filter:='';
TreeView1.Items.EndUpdate;

Проблема такова на условии

 if b=b1 then
                    begin

программа зависает напрочь. Если удалить условие - все нормально , кроме одного - в каждой категории выводятся все значения из таблицы 2, помогите поправить ошибку, заранее спасибо!

[GoodDA]

if b=b1 then
begin
   nnor:=TreeView1.Items.AddChild(nnod,DataModule2.pk1['Podkateg_1_name'] );
   DataModule2.pk1.Next;
end;

меняйте на

if b=b1 then
begin
   nnor:=TreeView1.Items.AddChild(nnod,DataModule2.pk1['Podkateg_1_name'] );
end;
   DataModule2.pk1.Next;

[chircov090993]

спасибо, помогло)