ник: Lukas
Поскольку часть работы с TV описана в модуле формы frmШР, там и продолжим, на примере подчиненной формы fsubDepartament.
1. Префиксы ключей опишем константами:
Const strKeyRoot As String = "U"
Const KeyDept As String = "D"
|
2. Подпишемся на события класса Form подчиненной формы fsubDepartament:
Private WithEvents frmDept As Form
|
3. В процедуре Form_Open назначим ссылку на подчиненую форму и назначим значения свойств:
Set frmDept = Me.fsubDepartament.Form
With frmDept
.AfterInsert = "[Event Procedure]"
.OnDelete = "[Event Procedure]"
End With
|
4. Опишем процедуры событий frmDept:
Private Sub frmDept_AfterInsert()
Dim nodX As Node
With frmDept
Set nodX = trvEmployee.Nodes.Add(strKeyRoot, tvwChild, KeyDept & .КодПодразделения, _
.НаимПодразделения, 3, 4)
nodX.Tag = .КодПодразделения
End With
trvEmployee.Nodes(nodX.Key).Selected = True
trvEmployee_NodeClick nodX
End Sub
Private Sub frmDept_Delete(Cancel As Integer)
trvEmployee.Nodes.Remove KeyDept & frmDept.КодПодразделения
End Sub
|
Как-так, вкратце.
По второй подчиненной форме почти аналогично.
Третий пункт вроде как уже работает?
Чуть не забыл: Из подчиненной формы код добавления узла удалим.