Select Товар
Locate for Товар.key_nware=ThisForm.cmbTwares.ListIndex
If found ()
Select Товар.name_product,Товар.trade_mark,pack_,volume_,qantity_,cena From Товар ;
where Товар.key_nware=ThisForm.cmbTwares.ListIndex ;
Into Array arrTov

Скажите как теперь массив arrTov записать в комбобокс,чтоб информация в arrTOVе отображалась в комбобоксе на одной строке( как объекте grid)?

(Пробовал множество вариантов , через Additem каято фигня все разбросано или неправильноиспользовал)

еще такая проблемка у меня массив содержит как символьный тип данных так и числовой(numeric)
как весь массив мне преобразовать в символьный? (мне для записи в комбобокс нужен символьный тип, а при вводе числового выдает ошибку)

мой вариант
Select Товар
Locate for Товар.key_nware=ThisForm.cmbTwares.ListIndex
If found ()
Select Товар.name_product,Товар.trade_mark,pack_,volume_,qantity_,cena From Товар ;
where Товар.key_nware=ThisForm.cmbTwares.ListIndex ;
Into Array arTov

*Приводим массив к строковому типу данных
aTovcnt=Alen(arTov,1)
aTovclm=Alen(arTov,2)
for i=1 to aTovcnt
for j=1 to aTovClm
if artov[i,j]<>' ' ---> при arTov=0.5 выдает ошибку Operand\Operator type mismatch(несоответствие типов данных)
Artov(i,j)=str(ArTov(i,j),3)
Endif
*Вносим массив в обьект cmbNwares
Store arTov(i,j) to elmt
ThisForm.cmbNwares.AddListItem(elmt,i,j)
Endfor
endfor
else
MessageBox("Нет продукции на складе")
Endif

Почему if arTov[i,j] <>"" выдает ошибку!! в чем прикол? (это ж оператор сравнения, он че и типы сравнивает!, я ж не давал команды проверки типов)

а как использовать тип? че то я тя не понимаю товарищ Сизов!

спасибо работает!!!