Товар No. уже существует

[hozain]

Задача создать дерево Товарная Категория->Тов.Группа->Товар
пытаюсь настроить Дерево
туплю на самых простых шагах

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;

ExItem тип рекорт субтип Item Category
TempItemDesc тип рекорд субтип Item
Источник формы Итем

поидее это должно выводщить все дескрипшены в TextBox из таблицы Item Category...

[romeo]

Смотри.

IF ExItem.FIND('-') THEN REPEAT
  TempItemDesc.Description :=  ExItem.Description;
  TempItemDesc.INSERT;
UNTIL ExItem.NEXT = 0;

В начале ты вставляешь запись "Item No." = '', Description = ExItem.Description.
Вторая запись .. "Item No." = '', Description = ExItem.DescriptionNext. А "Item No." в таблице Item между прочим ключ невторичный ) Инициализируй его уникальным значением. Например ExItem.Code.

[hozain]

спасибо