Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
Есть таблица с 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

(покупок несколько, вывод по нажатию на кнопку)
7 дек 11, 02:41    [11718395]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
IgorNG
Member

Откуда: Москва
Сообщений: 956
Alucard_070892,

И что не получается? А id_clients - это символьное поле?
7 дек 11, 09:14    [11718755]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
id_clients - поле типа int, ошибка в строке с AddItem, я не знаю просто как правильно вывести.
7 дек 11, 10:00    [11718995]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
IgorNG
Member

Откуда: Москва
Сообщений: 956
Alucard_070892,

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

thisform.List1.AddItem(id_mat) - это, по всей видимости, тоже число?
7 дек 11, 10:05    [11719013]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
Первое, я переделал: VAL(ALLTRIM(thisform.Text1.Text)), а как второе сделать я не знаю...
7 дек 11, 10:08    [11719027]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
В ListBox Value=0, но там все равно ошибка.
7 дек 11, 10:11    [11719041]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
IgorNG
Member

Откуда: Москва
Сообщений: 956
Alucard_070892
Первое, я переделал: VAL(ALLTRIM(thisform.Text1.Text)), а как второе сделать я не знаю...


Второе - STR(). Смотря что ты с этим делать будешь потом. Опять в VAL? Может, в консерватории что-то подправить? :)
Если все это для пользователя, то у него быстро начнет в глазах пестреть от айдишников, ему скорее всего названия нужны, а ID, как правило, используются для связей таблиц.
7 дек 11, 10:14    [11719071]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
Я понимаю тугость моего вывода, но помогите хоть так сделать.
7 дек 11, 10:32    [11719197]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
IgorNG
Member

Откуда: Москва
Сообщений: 956
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)))
7 дек 11, 10:38    [11719230]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
Я выведу id в ListBox, и больше их не буду трогать, но помогите мне их вывести... пожалуйста
Последний вид кода:

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

(Ошибка в AddItem, подскажите)
7 дек 11, 10:39    [11719231]     Ответить | Цитировать Сообщить модератору
 Re: Вывод в ListBox  [new]
Alucard_070892
Member

Откуда:
Сообщений: 42
Большое спасибо!!! Работает!!!
7 дек 11, 10:44    [11719264]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить