Экземпляры формы

[pstrkim]

Имеется 3 формы:
fOrders (Заказы)
fOrder (Заказ)
fProducts (Товары)

Из fOrders открывается экземпляр (New) fOrder для редактирования Заказа
Из fOrder открывается fProducts для выбора и вставки Товара в Заказ

Проблема в том что когда открыто несколько экземпляров fOrder
Товар вставляется не в текущий экземпляр а в тот который был открыт первым
Как правильно сослаться на нужный экземпляр формы?

[tyomitch]

Screen.ActiveForm?

[pstrkim]

Все оказалось несколько сложнее
надо вставить позицию из текущей формы fProducts в уже открытый но неактивный экземпляр fOrder
Вот как были открыты экземпляры fOrder из формы fOrders

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


Private Sub lvMain_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim frmO As New fOrder
    frmO.Show
End Sub


Вот этим кодом вставляются значения в fOrder из формы fProducts

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


Private Sub lv_DblClick()
    fOrder.grdStructInp.Columns(1) = fProducts.lv.SelectedItem
    Me.Hide
End Sub


Экземпляры не различаются между собой и позиция вставляется произвольно обычно в первую открытую форму. Как различить их? Запоминать каждую форму в стататической переменной при загрузке не получается

[Viper]

Стоит понять различие между именем класса и именем экземпляра. И как только это будет сделано, решение появиться само.