CHeating.vb 1972번 줄 누적 문제 분석 완료

ArinWarev1/FORM-OD/Frm_2_Build.vb

@@ -13,7 +13,7 @@
         InitializeComponent()
 
         'AddHandler dvProfile1.DataError, Sub(sender, e)
-        '                                     Console.WriteLine("dv error")
+        '                                     'Console.WriteLine("dv error")
         '                                 End Sub
 
         With fxList
@@ -53,7 +53,7 @@
     End Sub
 
     Sub Make_형별성능내역_List(colindex As Integer)
-        ' Console.WriteLine("yk2")
+        ' 'Console.WriteLine("yk2")
         Dim sl As New System.Collections.SortedList()
         For i As Integer = 1 To DSET1.tbl_yk.Rows.Count
             Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i - 1)
@@ -64,7 +64,7 @@
     End Sub
 
     Sub Make_존분류_List(colindex As Integer)
-        ' Console.WriteLine("zon")
+        ' 'Console.WriteLine("zon")
         Dim sl As New System.Collections.SortedList()
         For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
             Dim dr As DS.tbl_zoneRow = DSET1.tbl_zone.Rows(i - 1)
@@ -75,7 +75,7 @@
     End Sub
 
     Sub Make_방위_List(colindex As Integer)
-        '  Console.WriteLine("zon")
+        '  'Console.WriteLine("zon")
         Dim sl As New System.Collections.SortedList()
         For Each dr As DS.tbl_common_odRow In DSET1.tbl_common_od.Select("gubun='1007'")
             sl.Add(dr.name, dr.name)
@@ -86,7 +86,7 @@
 
 
     Sub Make_비주거용도_List(colindex As Integer)
-        '  Console.WriteLine("zon")
+        '  'Console.WriteLine("zon")
         Dim sl As New Dictionary(Of String, String)
         For Each dr As DS.tbl_profile_odRow In DSET1.tbl_profile_od.Select("code < 5000")
             sl.Add(dr.code, dr.설명)

ArinWarev1/FORM-OD/Frm_3_Mach.vb

@@ -734,7 +734,7 @@ Public Class Frm_3_Mach
             fxNanBang.Cols(colindex).DataType = GetType(String)
             fxNanBang.Cols(colindex).DataMap = sl
 
-            Console.WriteLine("Make_난방기기신재생_List")
+            'Console.WriteLine("Make_난방기기신재생_List")
 
         Else
             b난방기기신재생업데이트완료 = True
@@ -742,14 +742,14 @@ Public Class Frm_3_Mach
 
 
 
-     
+
     End Sub
 
     Dim b냉방기기신재생업데이트완료 As Boolean = False
     Sub Make_냉방기기신재생_List(colindex As Integer)
         If b냉방기기신재생업데이트완료 Then Return
 
-        Console.WriteLine("Make_냉방기기신재생_List")
+        'Console.WriteLine("Make_냉방기기신재생_List")
 
         'Dim bs연결된신재생_난방 As New BindingSource(DSET1, "tbl_new") With {.Filter = filter, .Sort = "code"}
         'Dim cmd연결된신재생_난방 As New ComboBox With {.DataSource = bs연결된신재생_난방, .DisplayMember = "설명", .ValueMember = "code"}
@@ -898,7 +898,7 @@ Public Class Frm_3_Mach
         'fxKogjo.Cols("열교환기유형").Editor = cmd열교환기유형
 
         '//조명기기종류 형광등;LED등;기타고효율등;일반등
-        ' Console.WriteLine("yk2")
+        ' 'Console.WriteLine("yk2")
         Dim sl As New Dictionary(Of String, String) '//170514
         sl.Add("형광등", "형광등")
         sl.Add("LED등", "LED등")
@@ -916,7 +916,7 @@ Public Class Frm_3_Mach
         fxNaengBang.Cols("증발식건식냉각기").DataMap = s2l
 
 
-      
+
 
 
     End Sub
@@ -1027,7 +1027,7 @@ Public Class Frm_3_Mach
                 fxNaengBang.Cols("냉수펌프동력").AllowEditing = True
             End If
         End If
-      
+
 
 
 
@@ -1133,7 +1133,7 @@ Public Class Frm_3_Mach
             fxDanMal.Select(cellrange, True)
 
         End If
-        Console.WriteLine(String.Format("fxDanMal_SelChange : {0},{1}", hti.Row, hti.Column))
+        'Console.WriteLine(String.Format("fxDanMal_SelChange : {0},{1}", hti.Row, hti.Column))
     End Sub
 
     Private Sub 열너비자동조정ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비자동조정ToolStripMenuItem.Click

ArinWarev1/FORM-OD/Frm_5_New.vb

@@ -418,7 +418,7 @@
     End Function
 
     Sub SelectIndexChange_태양광기울기(sender As Object, e As EventArgs)
-        Console.Write("SelectIndexChange_태양광기울기")
+        'Console.Write("SelectIndexChange_태양광기울기")
         fxLight.FinishEditing()
     End Sub
     Private Sub Binding_Zone()