18.01.2008, 10:22 | #1 |
Участник
|
Задача создать дерево Товарная Категория->Тов.Группа->Товар
пытаюсь настроить Дерево туплю на самых простых шагах Код: Form - OnOpenForm() InitTempTable; Код: Form - OnFindRecord(Which : Text[1024]) : Boolean TempItemDesc.COPY(Rec); Found := TempItemDesc.FIND(Which); Rec := TempItemDesc; EXIT(Found); Код: InitTempTable() TempItemDesc.DELETEALL; IF ExItem.FIND('-') THEN REPEAT TempItemDesc.Description := ExItem.Description; TempItemDesc.INSERT; UNTIL ExItem.NEXT = 0; TempItemDesc тип рекорд субтип Item Источник формы Итем поидее это должно выводщить все дескрипшены в TextBox из таблицы Item Category... |
|