ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Есть проблема
9 сообщений из 9, страница 1 из 1
Есть проблема
    #33874269
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
air1
Участник
Есть грид, куда пользователь вносит данные и по нажатию кнопки введенные данные должны добавляться к таблице. Все это уже написано, но для удобства ввода пользователь просит написать следующую функцию: Если в предыдущей строчке по той же колонке, та же цифра как и должна быть в новой еще не заполненной строчке, то по нажатию "+" в этой же колонке но строчкой ниже Эта цифра должна появиться в той же колонке только соответственно в новой не заполненной строчке.
...
Рейтинг: 0 / 0
24.07.2006, 15:45
| Ответить | Цитировать | Написать  
Есть проблема
    #33874282
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
если добавляете appe blan, то
set carry to ... поможет
...
Рейтинг: 0 / 0
24.07.2006, 15:48
| Ответить | Цитировать | Написать  
Есть проблема
    #33874336
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Отслеживаете KeyPress в форме и THISFORM.ActiveControl.Name = "MYGRID"
Код должен перехватывать нажатие на клавишу "+" на объекте MyGRID и проверять на EMPTY() требуемое поле в источнике данных GRID.
KeyPress: (форма)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LPARAMETERS m.nkeycode, m.nshiftaltctrl
LOCAL m.lcName

m.lcName = IIF(TYPE("THISFORM.ActiveControl") == "O", UPPER(THISFORM.ActiveControl.Name), "")

DO CASE
	CASE m.nkeycode =  43  AND m.nshiftaltctrl =  1  AND m.lcName== "MYGRID'
*-- Тут код который должен обновлять запись в таблице (курсоре) - источнике данных для вашего GRIDа
*-- Проверяете, что поле треб. пустое (EMPTY())
*-- Если пустое, то переходите на пред. строку (SKIP -1)
*-- Запоминаете значение поля в локальную переменную
*-- Переходите на треб. запись (SKIP или GOTO ...)
*-- Обновите запись значением локальной переменной (REPLACE ...)
*-- Обновите форму (THISFORM.Refresh())

С уважением, Алексей
...
Рейтинг: 0 / 0
24.07.2006, 16:02
| Ответить | Цитировать | Написать  
Есть проблема
    #33875305
Лузир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лузир
Участник
А куда же ты дел настройку KeyPreview ? Или это ты типа нам неразумным урок даешь ?
...
Рейтинг: 0 / 0
25.07.2006, 00:42
| Ответить | Цитировать | Написать  
Есть проблема
    #33875407
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
ЛузирА куда же ты дел настройку KeyPreview ? Или это ты типа нам неразумным урок даешь ?
А вы кому вопрос задаете?
Если мне, то я полагаю, что автор вопроса знает, что это свойство, как правило, включают в .T. И причем ту урок и тем более, вам. Вопрос был задан air1 и я ему отвечал. Если у вас есть другой вариант решения его проблемы, то предложите. К чему тут ирония. На форуме никто никого не учит и не лечит. Кто-то спрашивает, а кто-то отвечает.
С уважением, Алексей.
...
Рейтинг: 0 / 0
25.07.2006, 08:04
| Ответить | Цитировать | Написать  
Есть проблема
    #33876233
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
air1
Участник
Большое спасибо Aleksey-K. Все получилось. А что касается Лузира могу сказать, что форум для того и существует, чтоб задавать вопросы и получать на них достойные ответы. А если ответа не знаешь, то лучше вообще не писать. Мне кажеться что ты потратил гораздо больше времени на написание своего ироничного ответа, чем Aleksey-K абсолютно для написания правильного.
...
Рейтинг: 0 / 0
25.07.2006, 12:13
| Ответить | Цитировать | Написать  
Есть проблема
    #33876323
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
air1
Участник
Еще один вопрос: Как по нажатию кнопки, ну к примеру "+" скакнуть сразу на следующую колонку грида?
...
Рейтинг: 0 / 0
25.07.2006, 12:33
| Ответить | Цитировать | Написать  
Есть проблема
    #33876423
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
в код от Aleksey-K добавляем
thisform.MYGRID.Column2.setfocus
или при необходимости thisform.MYGRID.Column2.Text1.setfocus
...
Рейтинг: 0 / 0
25.07.2006, 12:52
| Ответить | Цитировать | Написать  
Есть проблема
    #33878022
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
air1Еще один вопрос: Как по нажатию кнопки, ну к примеру "+" скакнуть сразу на следующую колонку грида?
Можно, например так KEYBOARD '{TAB}'
С уважением, Алексей.
...
Рейтинг: 0 / 0
25.07.2006, 20:14
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Есть проблема
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&gotonew=1&tid=1591141]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 162ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 248ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


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