Есть многопользовательская программа (sql,VB6), использую большое количество гридов, часть из которых надо периодически обновлять по таймеру (а вдруг данные изменились врезультате действий пользователя на другом компьютере), и тут возникает проблема:
Dim aa As Long
If ado81RS.State = 1 Then
'запомнили aa - выбранная строка:
If ado81RS.EOF = False Then aa = ado81RS.Bookmark
ado81RS.Close
End If
Dim a As String
сall ado81RS.Open("select ...", db)
Set Grid81.DataSource = ado81RS
'вернули курсор на ту же строку, что и до обновления:
If aa <> 0 And aa <= ado81RS.RecordCount Then Call ado81RS.Move(aa - 1, 0)
после того, как грид очищен, рекордсет закрыт и заново открыт, надо вернуться на прежнюю строку, как бы это сделать грамотно, чтобы подсвечивающая выбранную строку полоса не пропадала (остается только стрелочка). Рассмотрю предложения об использовании другого грида (кроме mshflexgrid и msflexgrid). спасибо
Ответить
|