지역분리 작업

ArinWarev1/Calculator/CShared.vb

@@ -9,7 +9,15 @@ Public Class CShared
             Else
                 Try
                     Dim drArea As DS.tbl_DescRow = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow)
-                    Return CType(DSET1.tbl_weather.Select("code ='" & drArea.buildarea & "'")(0), DS.tbl_weatherRow)
+                    Dim AreaGrpCode As String = drArea.buildarea
+
+                    '/그룹코드에서 데이터를 찾아야한다.
+                    Dim drWeatherGrp As DS.weather_groupRow = CType(DSET1.weather_group.Select("code='" + AreaGrpCode + "'")(0), DS.weather_groupRow)
+                    Dim AreaName As String = drWeatherGrp.area
+
+                    'Dim drtblWeather As DS.tbl_weatherRow = DSET1.tbl_weather.Select("name='" + AreaName + "'")(0)
+
+                    Return CType(DSET1.tbl_weather.Select("건물위치 ='" & AreaName & "'")(0), DS.tbl_weatherRow)
                 Catch ex As Exception
                     MsgBox("건물개요의 지역정보를 찾을수없습니다.", MsgBoxStyle.Critical, "오류")
                     Return Nothing
@@ -52,6 +60,9 @@ Public Class CShared
     ''' 클래스 생성자
     ''' </summary>
     Public Sub New()
+
+        If 기상데이터 Is Nothing Then Return
+
         '//지정된 존에 해당하는 지역정보를 가지고옴(현재기상정보가 존에 할당되어있어서 그렇다)
         '//1번째 존에 지역이 설정된걸로 간주한다