ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Добавление строки в grid'e
6 сообщений из 6, страница 1 из 1
Добавление строки в grid'e
    #32285824
Сергей Е
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Е
Гость
Хочу добавить строку прямо в grid'e. Строка должна добавляться, если пользователь, стоя на нижней строке нажал кнопку "вниз". Подскажите, кто делал, какое событие при этом происходит
...
Рейтинг: 0 / 0
07.10.2003, 10:09
| Ответить | Цитировать | Написать  
Добавление строки в grid'e
    #32285877
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
*!*	thisform.KeyPress 
*!*	thisform.KeyPreview= .T. 
*!*	thisform.Grid1.RecordSourceType=  1  && Alias
LPARAMETERS nKeyCode, nShiftAltCtrl
IF this.ActiveControl.name='Grid1' AND nKeyCode= 24  && DnArrow
	SKIP IN (thisform.Grid1.RecordSource)
	IF EOF(thisform.Grid1.RecordSource)
		APPEND blank IN (thisform.Grid1.RecordSource)
		thisform.Grid1.Refresh()
	ENDIF 
ENDIF
...
Рейтинг: 0 / 0
07.10.2003, 10:34
| Ответить | Цитировать | Написать  
Добавление строки в grid'e
    #32285961
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
Grid.AllowAddNew=.t.
...
Рейтинг: 0 / 0
07.10.2003, 11:20
| Ответить | Цитировать | Написать  
Добавление строки в grid'e
    #32286100
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
Имхо AllowAddNew гадость еще та...
Я бы доработал код NNN приблизительно так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
LPARAMETERS nKeyCode, nShiftAltCtrl
IF this.ActiveControl.name='Grid1' AND nKeyCode= 24  && DnArrow
	SELECT (thisform.Grid1.RecordSource)
             SKIP
	IF EOF(thisform.Grid1.RecordSource)
                  for each loC in thisform.Grid1.Columns
                      if !empty(eval(loC.ControlSource))
		APPEND blank IN (thisform.Grid1.RecordSource)
                          exit
                      endif 
                  endfor
                  go bottom 
	ENDIF 
	thisform.Grid1.Refresh()

ENDIF
...
Рейтинг: 0 / 0
07.10.2003, 12:32
| Ответить | Цитировать | Написать  
Добавление строки в grid'e
    #32286108
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
Вечно тороплюсь. Бред написал. Надо где-то так
LPARAMETERS nKeyCode, nShiftAltCtrl
IF this.ActiveControl.name='Grid1' AND nKeyCode=24 && DnArrow
SELECT (thisform.Grid1.RecordSource)
SKIP
IF EOF(thisform.Grid1.RecordSource)
skip -1
for each loC in thisform.Grid1.Columns
if !empty(eval(loC.ControlSource))
APPEND blank IN (thisform.Grid1.RecordSource)
exit
endif
endfor
ENDIF
thisform.Grid1.Refresh()

ENDIF
...
Рейтинг: 0 / 0
07.10.2003, 12:36
| Ответить | Цитировать | Написать  
Добавление строки в grid'e
    #32286221
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
дык я и не говорил что это классная штука !
...
Рейтинг: 0 / 0
07.10.2003, 13:36
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Добавление строки в grid'e
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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