Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Cossys © (2002-05-15 17:08:00)
Господа, помогите пожалуйста. Ситуация проста, но я не знаю как. Нужен примерчик. Очень. Ситуация: две связанные таблици, надо в 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-16 13:15:00) [1]
Спасибо, разобрался. Все работает

MBo (2002-05-15 19:01:00) [2]
это узел treeview. среди его важнейших свойств - текст, родительский узел, уровень

Cossys (2002-05-15 18:56:00) [3]
Объяснить мне кто-нибудь может - ЧТО ТАКОЕ НОД????????? Я понимаю, что объект - но это что, узел, уровень, ЧТО это? Я с утра ни в одном F.A.Q., ни в одном Help отваета не нашел. Просветите, будьте так любезны.

MBo (2002-05-15 18:18:00) [4]
беда-то в чем?
для чего 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:07:00) [5]
Ну же, господа!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »