TreeView и DB. Помогите, пожалуйста

← →
Cossys © (2002-05-15 17:08) [0]

Господа, помогите пожалуйста. Ситуация проста, но я не знаю как. Нужен примерчик. Очень. Ситуация: две связанные таблици, надо в TreeView загнать эти таблици таким образом (а каким еще): каждый узел - запись из головной таблици, и на него все записи из дочерней. Вот фрагмент:

var
cnt : Integer;
begin
cnt:=0;
With tblAcc do
begin
First;
While not EOF do
begin
if tblT1.RecordCount=0 then
begin
TV1.Items.Add(nil, tblAcc.FieldByName("Account").Value);
cnt:=cnt+1;
Next;
end
else
begin
TV1.Items.Add(nil, tblAcc.FieldByName("Account").Value);
While not tblT1.Eof do
begin
TV1.Items.AddChild(TV1.Items[cnt], tblT1.FieldByName("Task_name").Value);
tblT1.Next;
end;
cnt:=cnt+1;
Next;
end;
end
end
end;

Простите за лексикон, уже ничего не соображаю

← →
Cossys © (2002-05-15 18:07) [1]

Ну же, господа!

← →
MBo © (2002-05-15 18:18) [2]

беда-то в чем?
для чего cnt?
почему бы не делать

Node:= TV1.Items.Add(nil, tblAcc.FieldByName("Account").Value);
While not tblT1.Eof do
begin
TV1.Items.AddChild(Node, tblT1.FieldByName("Task_name").Value);

← →
Cossys © (2002-05-15 18:56) [3]

Объяснить мне кто-нибудь может - ЧТО ТАКОЕ НОД????????? Я понимаю, что объект - но это что, узел, уровень, ЧТО это? Я с утра ни в одном F.A.Q., ни в одном Help отваета не нашел. Просветите, будьте так любезны.

это узел treeview. среди его важнейших свойств - текст, родительский узел, уровень

Спасибо, разобрался. Все работает

TreeView и DB. Помогите, пожалуйста Найти похожие ветки