в классе обработчик
- Код: Выделить всё
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rsADO(mvarIndex + 1) 'rsADO - коллекция рекордсетов
End Sub

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rsADO(mvarIndex + 1) 'rsADO - коллекция рекордсетов
End Sub

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 12