Здравствуйте! У меня такая проблема:я не могу написать обработчик на list box на событии init. Мне нужно поместить в лист бокс: № заказа, дата, фамилию клиента, оператор; эти данные берутся из таблицы заказов. В таблице заказов нет первичного ключа, т.к. заказчик может заказать сразу несколько товаров, и заносить их в таблицу заказов под разным id неправильно. Я сделал, чтобы не было первичного ключа и номер заказа заносился столько раз, сколько товаров заказал один заказчик(картинка). Вот код(нелепые попытки):

OPEN DATABASE database
USE order
SELECT COUNT(distinct id_order) FROM order INTO ARRAY b
GO TOP
*---------------

FOR i=1 TO b STEP 1
w=id_order
IF dfg=0
SKIP
wer=id_order
skip(-1)
ENDIF
IF w=wer
wer2=id_order
dt=dtez
thisform.list.AddListItem(CAST(dt as varchar(10)),i+1,2)
wer2=id_client
SELECT clsername FROM client WHERE id_client=wer2 INTO ARRAY ert
thisform.list.AddListItem(ert,i+1,3)
thisform.list.AddListItem('Астахова',i+1,4)
ELSE
IF NOT w=wer
SKIP
wer2=id_order
dt=dtez
thisform.list.AddListItem(CAST(dt as varchar(10)),i+1,2)
wer2=id_client
SELECT clsername FROM client WHERE id_client=wer2 INTO ARRAY ert
thisform.list.AddListItem(ert,i+1,3)
thisform.list.AddListItem('Астахова',i+1,4)
ENDIF
ENDIF
ENDFOR

tor300, спасибо. лист боксом норм для заказов.