Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+) / 10 сообщений из 10, страница 1 из 1
26.04.2005, 15:46:47
    #33036252
Вредный
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
после rebind грид "уползает" вверх таким образом, что текущая
строка становиться первой видимой сверху :(
а хотелось бы, чтобы грид остался на месте, т.е.
если текущая строка "в середине" грида, то после
rebind она там и осталась
это как то можно сделать?
спасибо
...
Рейтинг: 0 / 0
26.04.2005, 15:50:36
    #33036266
_bob
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
у этого грида свойство, если не ошибаюсь называется toprow, его надо запомнить до и установить после rebind
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
26.04.2005, 15:53:34
    #33036283
_bob
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
sorry, свойство азывается firstrow
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
26.04.2005, 15:59:42
    #33036313
Вредный
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
но оно как-то странно работает
в режиме отладки отрабатывает
когда запускаешь ехе нет :(
...
Рейтинг: 0 / 0
26.04.2005, 16:25:47
    #33036404
_bob
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
только что попробовал на 7 и 8про и там и там работает корректно
------------------
arbeit macht frei
...
Рейтинг: 0 / 0
26.04.2005, 16:39:50
    #33036451
Вредный
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
есть грид 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
26.04.2005, 16:57:09
    #33036521
Вредный
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
...
Set grdOpers.DataSource = Nothing
OpersRS!Selected = Not OpersRS!Selected
OpersRS.Update
Set grdOpers.DataSource = OpersRS
...
но set-ы наверное много времени отжирают :(
...
Рейтинг: 0 / 0
26.04.2005, 18:07:25
    #33036791
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
все это делается через bookmark
...
Рейтинг: 0 / 0
26.04.2005, 18:41:43
    #33036874
Вредный
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
хоть намеком конкретное направление поиска :)
...
Рейтинг: 0 / 0
27.04.2005, 11:12:27
    #33037666
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+)
fr = TDBGrid1.FirstRow
ap = rsBinded.AbsolutePosition
TDBGrid1.ReBind
TDBGrid1.FirstRow = fr
rsBinded.AbsolutePosition = ap
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как "оставить" выбранную строку true dbgrid "на месте" после rebind? (+) / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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