powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите составить поиск по двум значениям.
9 сообщений из 9, страница 1 из 1
Помогите составить поиск по двум значениям.
    #36941628
Amilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Задача такова: Кто из студентов выполнил конкретному работу по конкретному предмету: выдать Ф.И.О, номер группы и оценку. Использую код для кнопки:
SELECT studentbl_laba
GO TOP IN studentbl_laba
SKIP
LOCATE FOR studentbl_laba.fio= (ALLTRIM(thisform.combo1.value)) rest
thisform.Grid1.Refresh()
thisform.Grid1.setfocus()
thisform.Grid2.Refresh()
thisform.Grid2.setfocus()
thisform.Grid3.Refresh()
thisform.Grid3.setfocus()
IF NOT FOUND() then
=MESSAGEBOX("Записей не найдено!")
ENDIf
А что дальше делать не знаю (
Помогите пожалуйста.
Прикрепил свою форму к сообщению
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36941755
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Amilman, много-много раз нажимаем BackSpace, после чего кидаем на форму грид, называем его ResultGrid, и пишем в кнопке хотя бы такое
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
use in select('MyTempCursor')
local lcFio
lcFio=ALLTRIM(thisform.combo1.value)
select поля_какие_хотим_через_запятую from studentbl_laba;
  where rtrim(fio)==lcFio into cursor MyTempCursor
&&не хотим ртрим - делаем поле fio varchar-ом вместо char-а или включаем set ansi
if _tally= 0 
 =MESSAGEBOX("Записей не найдено!")
 return
endif
with thisform.ResultGrid
 .RecordSourceType= 1 
 .RecordSource='MyTempCursor'
 .refresh()
 &&делаете всё, что вам ещё там надо
endwith
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36942074
Фотография Telum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36943234
Amilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,
Спасибо всё работает.
Меня теперь интересует вопрос а как сделать так чтобы grid выдавал результаты по двум критериям которые я бы задал в combobox 1 (в нем значения fio) и combobox 2 (в нем значения laba)
Как это можно осуществить?
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36943444
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Amilman,

если ничего не помогает, почитайте в конце концов справку!

Код: plaintext
... where fio==lcFio and laba==lcLaba into cursor ...
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36943522
Amilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемый tanglir,

Я извиняюсь что мне пришлось просить помощи (
А насчет справки с английским у меня не очень складно...
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36944036
AmilmanА насчет справки с английским у меня не очень складно...А вам что-то кто-то говорил/писал про справку на английском? Универсальная отмазка и оправдание собственной лени - "не знаю английского". Справка и на русском есть и ее даже не очень сильно надо искать.
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36945821
Amilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну ладно я переборол как вы выразились свою лень и таки переписал код
Теперь буду мучится с индексами...
...
Рейтинг: 0 / 0
Помогите составить поиск по двум значениям.
    #36945895
AmilmanТеперь буду мучится с индексами...Не надо с ними мучаться, с ними надо работать. :)
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите составить поиск по двум значениям.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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