Форум программистов [Powered by Invision Power Board]

Код

    Public Sub BuildStructure()
        Dim intOrgID, intObjID, intBrID As Integer
        Dim rwOrg, rwObj, rwBR As Object
        Dim i, j, k As Integer
        Dim strOrgName, strObjName, strBRName As String
        Dim pdOrgPDColl, pdObjPDColl, pdBRPDColl As System.ComponentModel.PropertyDescriptorCollection
        Dim newORG, newOBJ, newBR As TreeNode
        Me.BeginUpdate()
        Me.Nodes.Clear()
         pdOrgPDColl = _bsorgcm.GetItemProperties()
        pdObjPDColl = _bsobjcm.GetItemProperties()
        pdBRPDColl = _bsbrcm.GetItemProperties()

        For i = 0 To _bsorgcm.Count - 1
            _bsorgcm.Position = i
            rwOrg = _bsorgcm.Current
            intOrgID = CType(pdOrgPDColl(_strorgvm).GetValue(rwOrg), Integer)
            strOrgName = CType(pdOrgPDColl(_strorgdm).GetValue(rwOrg), String)
            newORG = New Organization(intOrgID, strOrgName)
            If Not _orgs.ContainsKey("org" & intOrgID) Then _orgs.Add("org" & intOrgID, newORG)
            Me.Nodes.Add(newORG)
            For j = 0 To _bsobjcm.Count - 1
                _bsobjcm.Position = j
                rwObj = _bsobjcm.Current
                intOrgID = CType(pdObjPDColl(_strobjpm).GetValue(rwObj), Integer)
                intObjID = CType(pdObjPDColl(_strobjvm).GetValue(rwObj), Integer)
                strObjName = CType(pdObjPDColl(_strobjdm).GetValue(rwObj), String)
                newOBJ = New OrgObj(newORG, intObjID, strObjName)
                If Not _orgs.ContainsKey("obj" & intObjID) Then _orgs.Add("obj" & intObjID, newOBJ)
                newORG.Nodes.Add(newOBJ)
                For k = 0 To _bsbrcm.Count - 1
                    _bsbrcm.Position = k
                    rwBR = _bsbrcm.Current
                    intObjID = CType(pdBRPDColl(_strbrpm).GetValue(rwBR), Integer)
                    intBrID = CType(pdBRPDColl(_strbrvm).GetValue(rwBR), Integer)
                    strBRName = CType(pdBRPDColl(_strbrdm).GetValue(rwBR), String)
                    newBR = New Building(newOBJ, intBrID, strBRName)
                    If Not _orgs.ContainsKey("bld" & intObjID) Then _orgs.Add("bld" & intObjID, newBR)
                    newOBJ.Nodes.Add(newBR)
                Next
            Next
        Next
        Me.EndUpdate()
    End Sub