Небольшие затруднения с DataList

[ang]

Всем привет!

Подскажите кто знает, как после привязки рекордсета к DataList сразу поставить курсор (в смысле подсветить) на первую запись в DataList`е ? Событие DataList_Click аргументов не имеет ;(
А больше ничего похожего не нахожу или как говорится смотрю в книгу ...

Ткните носом

Заранее благодарю.
Alex.

[Cyrax]

RecordSet.MoveFirst, наверное

[ang]

Дык я не про рекордсет говорю, а про DataList.

[Cyrax]

nu dak, a ya pro chto... u DataList net metodov navigacii po zapisyam (v smysle, kotorye iz koda vyzyvaut'sa). po etomu, chtoby peremeschat'sa po zapisyam, nejno vyzyvat' metody recordseta...

[ang]

Не работает. Т.е. перемещение по рекордсету никак не отображается в DataList`е. ;(

[Cyrax]

pravil'no... u tebya focus na drugom elemente. posle MoveFirst dobav'

Код: Выделить всё

DataList1.SetFocus

no tol'ko ne v pocedure Form_Load.
esli nado podsvetit' DataList, to tol'ko posle togo, kak foma poyavitsa na ekrane. to est' ne ran'she Form_Activate.

[ang]

Чего-то не получается. Вернее ничего не происходит.
Пробовал в процедуре уже после загрузки и активации формы.
DataList в фокусе - об этом свидетельствует прозрачный курсор на первой записи, но это не то что мне нужно - т.е. это не выбор записи, потому как .BoundTex возвращает пустоту. Перемещение по рекордсету при активном (в фокусе) DataList`е ничего не дает.

Может быть я не все свойства ему назначаю ?
После создания рекордсета делаю следующее:
With DataList
Set .DataSource=rst
Set .RowSource=rst
.DataField = rst.Fields(1).name
.BoundColumn=rst.Fields(0).name
.ListField=rst.Fields(1).name
.Refresh
End With

Список заполняется нужными значениями, а BoundText`ом передает нужные значения для последующих операций.
Перемещение по рекордсету ничегомне дает.

А как послать в клавиатурный буфер при активном DataList`е chr(40) - клавиша вниз ? Это точно поможет.