в классе обработчик
- Код: Выделить всё
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

Сейчас этот форум просматривают: Google-бот и гости: 8