Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Добавление строки в grid'e / 6 сообщений из 6, страница 1 из 1
07.10.2003, 10:09
    #32285824
Сергей Е
Сергей Е
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
Хочу добавить строку прямо в grid'e. Строка должна добавляться, если пользователь, стоя на нижней строке нажал кнопку "вниз". Подскажите, кто делал, какое событие при этом происходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2003, 10:34
    #32285877
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
Код: 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, 11:20
    #32285961
chagoserg
chagoserg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
Grid.AllowAddNew=.t.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2003, 12:32
    #32286100
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
Имхо 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:36
    #32286108
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
Вечно тороплюсь. Бред написал. Надо где-то так
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, 13:36
    #32286221
chagoserg
chagoserg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строки в grid'e
дык я и не говорил что это классная штука !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Добавление строки в grid'e / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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