powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
10 сообщений из 10, страница 1 из 1
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036252
Вредный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
после rebind грид "уползает" вверх таким образом, что текущая
строка становиться первой видимой сверху :(
а хотелось бы, чтобы грид остался на месте, т.е.
если текущая строка "в середине" грида, то после
rebind она там и осталась
это как то можно сделать?
спасибо
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036266
Фотография _bob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у этого грида свойство, если не ошибаюсь называется toprow, его надо запомнить до и установить после rebind
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036283
Фотография _bob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sorry, свойство азывается firstrow
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036313
Вредный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
но оно как-то странно работает
в режиме отладки отрабатывает
когда запускаешь ехе нет :(
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036404
Фотография _bob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
только что попробовал на 7 и 8про и там и там работает корректно
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036451
Вредный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть грид grdOpers, есть рекордсет OpersRS
пытаемся сделать отмечание по пробелу строк в гриде

Private Sub grdOpers_KeyDown(KeyCode As Integer, Shift As Integer)
Dim bm, bm1 As Long
If KeyCode = 32 And Shift = 0 Then

bm = grdOpers.FirstRow
bm1 = grdOpers.Row
OpersRS!Selected = Not OpersRS!Selected
OpersRS.Update
grdOpers.FirstRow = bm

If bm1 < grdOpers.VisibleRows - 1 Then
grdOpers.Row = bm1 + 1
End If
end if
end sub
скачет на первую строку и все тут :(
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036521
Вредный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Set grdOpers.DataSource = Nothing
OpersRS!Selected = Not OpersRS!Selected
OpersRS.Update
Set grdOpers.DataSource = OpersRS
...
но set-ы наверное много времени отжирают :(
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036791
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
все это делается через bookmark
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33036874
Вредный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хоть намеком конкретное направление поиска :)
...
Рейтинг: 0 / 0
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
    #33037666
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fr = TDBGrid1.FirstRow
ap = rsBinded.AbsolutePosition
TDBGrid1.ReBind
TDBGrid1.FirstRow = fr
rsBinded.AbsolutePosition = ap
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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