..

ArinWarev1/MdiMain.vb

@@ -804,14 +804,14 @@ Public Class MdiMain
                 If Prj.UIVersion <> CurrentUIVersion() Then
 
                     If CInt(Prj.UIVersion.Substring(0, 4)) >= 2016 Then
-                        MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
+                        MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf +
-                                                           "파일 Version : " + Prj.UIVersion + vbCrLf + _
+                                                           "파일 Version : " + Prj.UIVersion + vbCrLf +
-                                                           "현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
+                                                           "현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf +
                                                            "파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
                     Else
-                        MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
+                        MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf +
-                                        "파일 Version : " + vbCrLf + _
+                                        "파일 Version : " + vbCrLf +
-                                           "현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
+                                           "현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf +
                                            "파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
 
                     End If
@@ -1002,7 +1002,7 @@ Public Class MdiMain
                 Dim oldfi As New System.IO.FileInfo(FileName)
                 Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
                 If newfi.Exists Then
-                    If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf + _
+                    If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf +
                               "백업일자 : " + newfi.CreationTime.ToShortDateString + " " + newfi.CreationTime.ToShortTimeString + vbCrLf + "백업된 파일을 불러오시겠습니까?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "확인") = MsgBoxResult.Yes Then
                         Open_File(newfi.FullName)
                     End If
@@ -1099,7 +1099,7 @@ Public Class MdiMain
                         DSET1.tbl_zone.Rows(i - 1)("순실체적") = CSng(면적) * CSng(천장고)
                     End If
                 End If
-                If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
+                If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse
                     DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
                     Continue For
                 End If
@@ -1113,7 +1113,7 @@ Public Class MdiMain
 
         If Not DSET2 Is Nothing Then
             For i As Integer = 1 To DSET2.tbl_zone.Rows.Count
-                If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
+                If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse
                     DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
                     Continue For
                 End If
@@ -1128,7 +1128,7 @@ Public Class MdiMain
         '//입력면
         If Not DSET1 Is Nothing Then
             For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count
-                If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
+                If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse
                     DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
                     Continue For
                 End If
@@ -1147,7 +1147,7 @@ Public Class MdiMain
 
         If Not DSET2 Is Nothing Then
             For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count
-                If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
+                If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse
                     DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
                     Continue For
                 End If
@@ -2035,8 +2035,8 @@ Public Class MdiMain
         'MsgBox(autoselecttagname)
 
         '//추가할메뉴선택
-        Dim Menus() As String = New String() {"입력존", "공조처리", _
+        Dim Menus() As String = New String() {"입력존", "공조처리",
-                                              "난방기기", "난방공급시스템", "난방분배시스템", "냉방기기", _
+                                              "난방기기", "난방공급시스템", "난방분배시스템", "냉방기기",
                                               "냉방분배시스템", "신재생및열병합", "열관류율", "월별에너지사용량"}
         For Each m As String In Menus
 
@@ -2710,8 +2710,8 @@ ENDSTAT:  '//오류발생시 강제종료를 위한 분기문
 
     Private Sub ToolStripMenuItem13_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem13.Click
 
-        If MsgBox("정말로 서버의 데이터를 수정하시겠습니까?" & vbCrLf & _
+        If MsgBox("정말로 서버의 데이터를 수정하시겠습니까?" & vbCrLf &
-                  "서버의 기상데이터가 삭제되고 현재데이터가 씌여집니다." & vbCrLf & _
+                  "서버의 기상데이터가 삭제되고 현재데이터가 씌여집니다." & vbCrLf &
                   "이작업은 되돌릴 수없습니다", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return
 
         Dim pass As String = InputBox("암호입력")
@@ -2745,11 +2745,11 @@ ENDSTAT:  '//오류발생시 강제종료를 위한 분기문
             Rcnt += Ta2.Insert(Dr.pcode, Dr.code, Dr.설명, Dr.최대부하, Dr.m01, Dr.m02, Dr.m03, Dr.m04, Dr.m05, Dr.m06, Dr.m07, Dr.m08, Dr.m09, Dr.m10, Dr.m11, Dr.m12)
         Next
         For Each Dr As DS.weather_supdoRow In DSET1.weather_supdo.Rows
-            Rcnt += Ta3.Insert(Dr.pcode, Dr.code, Dr.설명, Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10, _
+            Rcnt += Ta3.Insert(Dr.pcode, Dr.code, Dr.설명, Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10,
                                Dr.t11, Dr.t12, Dr.t13, Dr.t14, Dr.t15, Dr.t16, Dr.t17, Dr.t18, Dr.t19, Dr.t20, Dr.t21, Dr.t22, Dr.t23, Dr.t24)
         Next
         For Each Dr As DS.weather_tempRow In DSET1.weather_temp.Rows
-            Rcnt += Ta4.Insert(Dr.pcode, Dr.code, Dr.설명, Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10, _
+            Rcnt += Ta4.Insert(Dr.pcode, Dr.code, Dr.설명, Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10,
                                Dr.t11, Dr.t12, Dr.t13, Dr.t14, Dr.t15, Dr.t16, Dr.t17, Dr.t18, Dr.t19, Dr.t20, Dr.t21, Dr.t22, Dr.t23, Dr.t24)
         Next
         MsgBox("업데이트완료", MsgBoxStyle.Information, "확인")
@@ -3902,8 +3902,8 @@ ENDSTAT:  '//오류발생시 강제종료를 위한 분기문
                                 End If
 
 
-                                content.Append(vbTab + drm.설명 + vbTab + drm.건축부위방식 + vbTab + _
+                                content.Append(vbTab + drm.설명 + vbTab + drm.건축부위방식 + vbTab +
-                                                    drm.건축부위면적 + vbTab + _
+                                                    drm.건축부위면적 + vbTab +
                                                     열관류율 + vbTab + drm.방위)
                             Next
                             content.AppendLine()