Подскажите как удалить ТЕКУЩУЮ запись в гриде, пишу следующий код:
select table1

IF MESSAGEBOX ("Óäàëèòü ýòó çàïèñü?", 4 + 32 + 256) = 6
n_Rec=RECNO()

DELETE NEXT 1


ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF

THISFORM.GRID1.SetFocus
THISFORM.REFRESH
удаляется всегда первая

fox_vikДля текущей записи просто

Вопрос в том как поставить через грид курсор на текущую запись, просто delete не помогает

Dima T FillyjonkПодскажите как удалить ТЕКУЩУЮ запись в гриде, пишу следующий код: Куда пишешь?
Fillyjonkselect table1

IF MESSAGEBOX ("Óäàëèòü ýòó çàïèñü?", 4 + 32 + 256) = 6
n_Rec=RECNO() && это лишнее

DELETE NEXT 1


ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF() && это
SKIP -1 && это
ENDIF && и это грид сам сделает

THISFORM.GRID1.SetFocus
THISFORM.REFRESH
удаляется всегда перваяЭто наверно не весь код. Здесь все правильно.

DELETE и DELETE NEXT 1 означают одно и тоже
весь, пишу на событие click кнопки

Dima T Fillyjonkвесь, пишу на событие click кнопки Тогда все должно работать.
Грид ставит указатель в курсоре на выбранную запись.
Где-то раньше указатель у тебя уезжает (GO TOP поищи).
Поставь в начало:
И посмотри.
Go top нет...

О_В_ДА попробуйте еще проконтролировать так.
Сделайте на форме служебный текстбокс, значением которого будет n_Rec. У грида поставьте в AfterRowColChange:
Теперь при перемещении по гриду можно отследить, как меняется значение n_Rec. Если оно вообще меняется.
вообще не меняется...когда кликаешь по разным строкам грида

AleksMed FillyjonkПодскажите как удалить ТЕКУЩУЮ запись в гриде, пишу следующий код:
select table1

IF MESSAGEBOX ("Óäàëèòü ýòó çàïèñü?", 4 + 32 + 256) = 6
n_Rec=RECNO()

DELETE NEXT 1


ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF

THISFORM.GRID1.SetFocus
THISFORM.REFRESH
удаляется всегда первая
delete in (THISFORM.GRID1.RecordSource)
в гриде исчезает, спасибо огромное=)))
а вот в самой таблице - только помечается на удаление...а как программно удалить её из самой таблицы?