ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 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):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=65&tid=1583959]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 13ms
total:  116ms
созд. / загр.: 116ms
x
x
Закрыть


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