powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с поиском! ну пожалуйста:)
11 сообщений из 36, страница 2 из 2
Помогите с поиском! ну пожалуйста:)
    #37235329
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fox123DagДействительно ли нужен двойной клик на гриде?
Вам проще создать новую кнопку "Обновить данные" с кодом в событии Click
Код: plaintext
1.
2.
3.
replace person_fam with MyTempCursor.person_fam, person_im with MyTempCursor.person_im, ;
person_ot with MyTempCursor.person_ot, person_dr with MyTempCursor.person_dr IN dozl
ThisForm.Refresh()

Идея канешно хороша и проста, только какие именно данные он будет брать из курсора, если результат поиска 10 фамилий?? если бы один результат был, не было бы вопроса.

Вы выводите результат запроса в курсор MyTempCursor. Так? Отображаете его в гриде. Так?
Текущая строка грида - это текущая строка курсора.
Куда вы хотите скопировать данные из текущей записи курсора MyTempCursor? В таблицу dolz?
Тогда команда replace и отработает по текущей записи в курсоре и таблице. Для успокоения можете добавить в команду опцию NEXT 1.
Двойной клик сделать несложно - но тогда начнут появляться вопросы типа:
fox123что значит "текстбокса грида"?
И кстати, что представляет собой "поле поиска"?
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37235360
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dag,

Я все это понял так:

Есть Grid, которому привязывается запрос. В Gride указываются фамилии. Под Gridом расположены текстовые поля Text1...TextN, в которых указываются различные данные (например, ата рождения, пол, семейное положение) для текущей строки Grid. Есть еще текстовое поле в которое пользователь вводит фамилию, нажимает на кнопку "Найти", идет requery запроса, данные Grid обновляются. Но автор еще хочет по нажатию на кнопку Add или Edit отредактировать данные в текстовых полях Text1...TextN и при нажатии кнопки "Сохранить" отправить измененные или добаленные данные в таблицу. Т.е. Все в одном флаконе.
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37235666
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну как там сделано на самом деле может ответить лишь топикстартер. Я понял так, что на форме тестбоксы отображают содержимое основной таблицы dolz, а грид показывает содержимое запроса
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37235676
fox123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
IgorNGDag,

Я все это понял так:

Есть Grid, которому привязывается запрос. В Gride указываются фамилии. Под Gridом расположены текстовые поля Text1...TextN, в которых указываются различные данные (например, ата рождения, пол, семейное положение) для текущей строки Grid. Есть еще текстовое поле в которое пользователь вводит фамилию, нажимает на кнопку "Найти", идет requery запроса, данные Grid обновляются. Но автор еще хочет по нажатию на кнопку Add или Edit отредактировать данные в текстовых полях Text1...TextN и при нажатии кнопки "Сохранить" отправить измененные или добаленные данные в таблицу. Т.е. Все в одном флаконе.

Вы правильно все поняли. в гриде указываются не только фамилии, но и куча других данных, чтобы пользователю найти нужного человека. не вводить же ему в поиске имя, фамилию, отчество, дату рождения, адрес.. и т.п. на это вечность уйдет, а в таблице все сразу видно.

IgorNGDag,
Т.е. Все в одном флаконе.

а как по-другому? зачем искать данные без возможности редактирования?.. как вы себе представляете, чтобы не в одном флаконе? я просто не представляю, а так можно и в разных флаконах...наверно:)
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37235699
fox123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dagfox123пропущено...

Идея канешно хороша и проста, только какие именно данные он будет брать из курсора, если результат поиска 10 фамилий?? если бы один результат был, не было бы вопроса.

Вы выводите результат запроса в курсор MyTempCursor. Так? Отображаете его в гриде. Так?
Текущая строка грида - это текущая строка курсора.
Куда вы хотите скопировать данные из текущей записи курсора MyTempCursor? В таблицу dolz?
Тогда команда replace и отработает по текущей записи в курсоре и таблице. Для успокоения можете добавить в команду опцию NEXT 1.
Двойной клик сделать несложно - но тогда начнут появляться вопросы типа:
fox123что значит "текстбокса грида"?
И кстати, что представляет собой "поле поиска"?

Зачем копировать записи в таблицу из которой собственно мы эти записи и берем?? мне нужно отобразить данные из текущей записи курсора MyTempCursor на форме, отредактировать их и сохранить в таблице
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37235719
fox123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
IgorNGDag,

Под Gridом расположены текстовые поля Text1...TextN, в которых указываются различные данные (например, ата рождения, пол, семейное положение) для текущей строки Grid.
пока данные не для текущей строки грид а из таблицы
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37236443
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У таблицы есть ключевое поле?
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37236768
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fox123,

Я представляю, да и делаю всегда форму редактирования отдельно от формы просмотра, т.е. вы на форме нашли нужного человека, нажали на кнопку "Редактировать", открывается форма с текстовыми полями, но без грида, редактируете, по кнопке Сохранить обрабатываете данные, по кнопке отмена выходите из формы без сохранения.
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37237108
fox123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DagУ таблицы есть ключевое поле?

есть, я писала выше
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37237129
fox123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
IgorNGfox123,

Я представляю, да и делаю всегда форму редактирования отдельно от формы просмотра, т.е. вы на форме нашли нужного человека, нажали на кнопку "Редактировать", открывается форма с текстовыми полями, но без грида, редактируете, по кнопке Сохранить обрабатываете данные, по кнопке отмена выходите из формы без сохранения.

хорошо, пусть так будет. создаю отдельную форму с двумя текст боксами, кнопкой поиск, гридом и кнопкой редактировать

в поиске прописываю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
use in select('MyTempCursor2')
local lcFam2
LOCAL lcIm2
lcFam2=ALLTRIM(thisform.Text1.value)
lcIm2=ALLTRIM(thisform.Text2.value)
select person_fam, person_im, person_ot, person_dr from dozl;
  where rtrim(person_fam)==lcFam2 into cursor MyTempCursor2
if _tally= 0 
 =MESSAGEBOX("Записей не найдено!")
 return
ENDIF
with thisform.Grid1
 .RecordSourceType= 1 
 .RecordSource='MyTempCursor2'
 .refresh()
 ENDWITH
выдает ошибку в этой строке:
where rtrim(person_fam)==lcFam2 AND rtrim(person_im)==lcFam2 into cursor MyTempCursor2

после поиска открывает отдельно Form1 со всеми записями из таблицы, а не выводит в грид
если в Environment таблицу dozl вставляю, то заполняется данными из таблицы, на поиск также реагирует. в общем ничего не ищет!((
...
Рейтинг: 0 / 0
Помогите с поиском! ну пожалуйста:)
    #37252546
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fox123,

where rtrim(person_fam)==lcFam2 AND rtrim(person_im)==lcFam2 into cursor MyTempCursor2

Удалите таблицу из DE.

В Init сделайте запрос MyTempCursor2 хотя бы пустой, чтобы привязать к Grid
RecordSourceType - 1
RecordSource - MyTempCursor2
И соответственно, для colum'ов тоже
...
Рейтинг: 0 / 0
11 сообщений из 36, страница 2 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с поиском! ну пожалуйста:)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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