powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Текущая запись
6 сообщений из 6, страница 1 из 1
Текущая запись
    #35763310
PR111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В акцессе было событие на форму (Текущая запись,Form Current) а здесь нет или как она здесь в ВБ6 называется?
...
Рейтинг: 0 / 0
Текущая запись
    #35763965
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В Access событие Form_Current генерится в результате загрузки новой записи в поля формы.

В ВБ 6 нет подобного события. Тебе нужно написать свою процедуру, которая будет реагировать на события перехода по записям.
...
Рейтинг: 0 / 0
Текущая запись
    #35763984
jhonkuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для DataGrid вешаешь код на событие RowColChange
...
Рейтинг: 0 / 0
Текущая запись
    #35764389
PR111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А если нет DataGrid?У меня просто форма и пару окон и все ,мне не нужен Datagrid
...
Рейтинг: 0 / 0
Текущая запись
    #35764535
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
какая такая текущая запись, если у тебя просто форма?
...
Рейтинг: 0 / 0
Текущая запись
    #35764597
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В vb6 в основе всего - рекордсет. Обращение к полям рекордсета - и есть обращение к текущей записи. Что бы перейти к нужной записи - rs.MoveFirst и rs.MoveNext(нужное число).
Что бы найти нужную запись rs.Find "поле='значение' "
Некоторые контролы синхронизируют рекордсет с позицией. Например, в True DBGrid выделенная строка - и есть текущая позиция рекордсета - ни чего дполонительно делать не нужно. В DataGrid (насколько помню) надо искать строку.

Для отображения записей на единичной форме часто открывают рекордсет на одной единственной записи:
Код: plaintext
1.
2.
3.
4.
rs.Open "SELECT * FROM Orders WHERE OrderID = 33", Connection, adOpenStatic, adLockButch
if rs.RecordCount >  0  Then
 rs.MoveFirst
 txtOrderID.Text = rs("OrderID")
End if
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Текущая запись
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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