Alucard_070892,

И что не получается? А id_clients - это символьное поле?

Alucard_070892,

У тебя в этой строке уже должна быть ошибка:
if (id_clients==tmp)
т.к. id_clients - число, а tmp=alltrim(thisform.Text1.Text) - строка.
Сделай Text1 числовым.

thisform.List1.AddItem(id_mat) - это, по всей видимости, тоже число?

Alucard_070892Первое, я переделал: VAL(ALLTRIM(thisform.Text1.Text)), а как второе сделать я не знаю...

Второе - STR(). Смотря что ты с этим делать будешь потом. Опять в VAL? Может, в консерватории что-то подправить? :)
Если все это для пользователя, то у него быстро начнет в глазах пестреть от айдишников, ему скорее всего названия нужны, а ID, как правило, используются для связей таблиц.

Alucard_070892Есть таблица с ID покупателя и ID его покупки, как вывести его покупки в ListBox?

Таблица: o_order
ID покупателя: id_clients
ID товара: id_mat

Моя попытка:

thisform.List1.Clear
close tables all
use o_order.dbf
tmp=''
tmp=alltrim(thisform.Text1.Text)
go top
SCAN
if (id_clients==tmp)
thisform.List1.AddItem(id_mat)
endif
endscan
use

(покупок несколько, вывод по нажатию на кнопку)

В Init Text1 поставь THIS.Value = 0, если это поле для ввода ID руками.
Измени строки:
tmp='' - эту вообще убери
tmp=thisform.Text1.Value
if id_clients=tmp
thisform.List1.AddItem(ALLTRIM(STR(id_mat)))