в классе обработчик
- Код: Выделить всё
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 36