Скачать: CL | DM;

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 отваета не нашел. Просветите, будьте так любезны.

---

← →
MBo ©   (2002-05-15 19:01) [4]

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

---

← →
Cossys ©   (2002-05-16 13:15) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c