powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите как правильно?? Fox2.6
6 сообщений из 6, страница 1 из 1
Подскажите как правильно?? Fox2.6
    #34508230
Andrey86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем здрасте.
Подскажите! Есть две базы osn.dbf и s_osn.dbf с общим полем inv(Cимвольным), я делаю через меню запросом в форму выбор всех данный из s_osn.dbf которые совпадают с общим полем, но результат получаеться только одна запись (первая) хотя их должно быть несколько. Что не так?
1) sele 1
use osn inde &osn1,&osn
sele 6
use s_osn inde s_osn
inde on inv to s_osn

2)case menu_nak=1
set relation to inv into s_osn
do edit_nak
if read()%256=12
exit
endif

3)func edit_nak
defi wind w_edit_osn from 9,18 to 16,76 shad
acti wind w_edit_osn
@ row()+1,0 say [Инв №: ] get s_osn.inv
@ row()+1,0 say repl([─],30)
@ row()+1,0 say [Наименование: ] get s_osn.nazv
@ row()+1,0 say [НАК: ] get s_osn.okpo
...
Рейтинг: 0 / 0
Подскажите как правильно?? Fox2.6
    #34508252
Andrey86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
изменил
@ row()+1,0 say [Инв №: ] get s_osn.inv
@ row()+1,0 say repl([─],30)
@ row()+1,0 say [Наименование: ] get s_osn.nazv
@ row()+1,0 say [НАК: ] get s_osn.okpo

на
scan
@ prow()+1,0 say s_osn.inv+[ ]+s_osn.nazv+[ ]+s_osn.okpo
endscan

но не работает, выдает только одну запись по условию связи
...
Рейтинг: 0 / 0
Подскажите как правильно?? Fox2.6
    #34509093
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Andrey86изменил
@ row()+1,0 say [Инв №: ] get s_osn.inv
@ row()+1,0 say repl([─],30)
@ row()+1,0 say [Наименование: ] get s_osn.nazv
@ row()+1,0 say [НАК: ] get s_osn.okpo

на
scan
@ prow()+1,0 say s_osn.inv+[ ]+s_osn.nazv+[ ]+s_osn.okpo
endscan

но не работает, выдает только одну запись по условию связи

Какая-то неадекватная у тебя замена. Редактирование одной записи ты заменил на вывод всей таблицы. И в конце всех @...say...get должна стоять команда read. И @...say...get работают только для текущей строки таблицы, если хочешь одновременно редактировать несколько строк, то это надо делать через временные переменные.

У тебя row() и prow() не меняется и все выдается в одно и то же место экрана. По итогу ты видишь последнюю запись.
Сделай переменную для номера строки или используй "?" для вывода.
Код: plaintext
? s_osn.inv+[ ]+s_osn.nazv+[ ]+s_osn.okpo
...
Рейтинг: 0 / 0
Подскажите как правильно?? Fox2.6
    #34511199
Andrey86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ребят, как можно из полей базы сделать в окне выбор меню, тоесть я хочу чтобы высвечивались соответствующие записи в окне а при нажатии на запись выводилась моя форма редактирования этой записи.
как бы так:
1)выбор всех записей по условию
scan
@ prow()+1,0 say s_osn.inv+[ ]+s_osn.nazv+[ ]+s_osn.okpo
endscan

2)вывод формы редактирования выбранной записи в первом меню
@ row()+1,0 say [Инв №: ] get s_osn.inv
@ row()+1,0 say repl([?],30)
@ row()+1,0 say [Наименование: ] get s_osn.nazv
@ row()+1,0 say [НАК: ] get s_osn.okpo

но в 1) выводиться только одна всего запись, а их несколько, пониял что prow не то но и "?" тоже не то. Возможно ли сделать такое без создания массивов этих баз?????????????????????????????
...
Рейтинг: 0 / 0
Подскажите как правильно?? Fox2.6
    #34511337
BMJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BMJ
Гость
чем BROWSE плохая команда? При желании по ENTER можно вызвать и EDIT.

ненавязчивый совет: SELE 1 & sele 2 дучше заменить USE <NazvTable> IN 0, а потом просто SELE nazvTable
...
Рейтинг: 0 / 0
Подскажите как правильно?? Fox2.6
    #34511339
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нашел в архивах поделку на FPD
База большая, ее в архиве нет, при первом запуске Сервис->Индексирование
смотри, изучай
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите как правильно?? Fox2.6
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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