ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вывод из таблицы
5 сообщений из 5, страница 1 из 1
Вывод из таблицы
    #37561780
Alucard_070892
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alucard_070892
Гость
Задача: Есть таблица с ID покупателя и ID его покупки(ещё есть количество покупок и цена за штуку), в таблице ID покупателя повторяются. Создана форма с TexBox(1) и ListBox(2), в 1 вводиться ID покупателя, во 2 должны вывестись все его ID покупок(по нажатию на кнопку).
...
Рейтинг: 0 / 0
06.12.2011, 20:19
| Ответить | Цитировать | Написать  
Вывод из таблицы
    #37561785
Alucard_070892
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alucard_070892
Гость
И подскажите, пожалуйста, как вывести отчет с покупками покупателя. При этом чтобы ID покупателя мы могли менять и вообще можно ли так сделать?
...
Рейтинг: 0 / 0
06.12.2011, 20:23
| Ответить | Цитировать | Написать  
Вывод из таблицы
    #37561801
Alucard_070892
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alucard_070892
Гость
Таблица: o_order
ID покупателя: id_clients
ID товара: id_mat

Моя попытка:

thisform.List1.Clear
close tables all
use o_order
tmp=''
tmp=alltrim(thisform.Text1.Text)
go top
SCAN
if (id_clients==tmp)
thisform.List1.AddItem(id_mat)
endif
endscan
use
...
Рейтинг: 0 / 0
06.12.2011, 20:31
| Ответить | Цитировать | Написать  
Вывод из таблицы
    #37561938
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alextashk
Участник
Alucard_070892,

А если ID покупателя будет 16 знаков?

помоему более логичным было бы использование 2 listBox

в 1 listbox (список ID покупателей, а ещё лучше ФИО) при пролистывании (метод interactiveChange)
делать запрос из 2 таблицы для listbox2
Код: plaintext
1.
2.
3.
4.
5.
ThisForm.listbox2.RowSource = ''
SELECT * FROM tablePokupka WHERE idPokupatel = tablePokupatel.id INTO CURSOR list2
ThisForm.listbox2.RowSource = 'list2'
ThisForm.listbox2.Requery
ThisForm.listbox2.refresh



В 2 listbox собственно
RowSource = 'list2'
и естественно надо озоботиться вопросом существования list2 до инициализации вашей формы
...
Рейтинг: 0 / 0
06.12.2011, 21:58
| Ответить | Цитировать | Написать  
Вывод из таблицы
    #37561964
Alucard_070892
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alucard_070892
Гость
Извините конечно за мое "гав*о-кодерство", но мне просто надо вывести в этот ListBox покупки покупателя и все, я показал преподу - работает -> чётко.
Тем более я не понял Вашей мысли =)
...
Рейтинг: 0 / 0
06.12.2011, 22:09
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вывод из таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]