' ''' <summary>
' ''' 각존의 데이터를 참조한다
' ''' </summary>
'Public Class CZonesOD
'    Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다"
'    Public Items() As Citem

'    Public Sub New()   '//존은초기화값을 가지고 생성한다.
'        ReDim Items(Me.CountR)  '//결과내의 존을 초기화한다.
'        Dim idx As Integer = 0
'        For Each It As DSR.최대냉난방부하Row In DSETR1.최대냉난방부하.Select("zone<>'00'")
'            Items(idx) = New Citem(idx, It.Zone)
'            idx += 1
'        Next
'        '//해당존의 코드값을 가지고 결과가 게산되어있따.
'    End Sub
'    Public Function Count() As Integer
'        Return DSET1.tbl_zone.Rows.Count '//현재 시스템의 존 카운터를 반환
'    End Function
'    Public Function CountR() As Integer
'        Return DSETR1.최대냉난방부하.Select("zone<>'00'").GetUpperBound(0) + 1 '//계산결과내의 존의 갯수를 반환
'    End Function

'    Public Class Citem
'        Public Index As Integer
'        Public Code As String
'        Public 최대냉난방부하 As C최대냉난방부하OD.Citem
'        Public 월에너지분석(11) As C에너지분석OD    '//이존의 12달의 내역을 참조한다.
'        Public Sub New(ByVal pidx As Integer, ByVal pcode As String)
'            Me.Index = pidx
'            Me.Code = pcode
'            최대냉난방부하 = New C최대냉난방부하OD.Citem(pcode)

'            Dim Idx As Integer = 0
'            For Each DR As C에너지분석OD In Me.월에너지분석
'                DR = New C에너지분석OD(Idx, pcode)
'                Idx += 1
'            Next
'        End Sub
'        Public Function Name() As String
'            Dim dR() As DataRow = DSET1.tbl_zone.Select("code='" & Me.Code & "'")
'            If dR.GetUpperBound(0) = -1 Then
'                Return "존재하지않는 Zone 입니다"
'            Else
'                Return dR(0)("설명").ToString
'            End If
'        End Function
'        Public Function Row() As DS.tbl_zoneRow
'            Dim dR() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Me.Code & "'"), DS.tbl_zoneRow())
'            If dR.GetUpperBound(0) = -1 Then
'                Return Nothing
'            Else
'                Return dR(0)
'            End If
'        End Function
'    End Class
'End Class