..

2020-08-15 19:34:49 +09:00
parent 890d88bbfc
commit 2f394faf88
18 changed files with 17882 additions and 3173 deletions
--- a/ArinWarev1/Calculator/CShared.vb
+++ b/ArinWarev1/Calculator/CShared.vb
@@ -8,7 +8,8 @@ Public Class CShared
                Return Nothing
            Else
                Try
-                    Return CType(DSET1.tbl_weather.Select("code ='" & DSET1.tbl_Desc.Rows(0)("buildarea").ToString & "'")(0), DS.tbl_weatherRow)
+                    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)
                Catch ex As Exception
                    MsgBox("건물개요의 지역정보를 찾을수없습니다.", MsgBoxStyle.Critical, "오류")
                    Return Nothing