ECO2_OD_20180901_0005_New

ArinWarev1/FORM-OD/Frm_5_New.vb

@@ -374,16 +374,22 @@
     End Sub
 
     Private Sub DataColumnChanged_light(sender As Object, e As System.Data.DataColumnChangeEventArgs)
-        Select Case e.Column.ColumnName.ToLower
-            Case "태양광모듈기울기"
-                Select Case e.ProposedValue
-                    Case "수평", "(없음)"
-                        e.Row("태양광모듈방위") = "(없음)"
-                        fxLight.Cols("태양광모듈방위").AllowEditing = False
-                    Case Else
-                        fxLight.Cols("태양광모듈방위").AllowEditing = True
-                End Select
-        End Select
+        Try
+
+            Select Case e.Column.ColumnName.ToLower
+                Case "태양광모듈기울기"
+                    Select Case e.ProposedValue
+                        Case "수평", "(없음)"
+                            e.Row("태양광모듈방위") = "(없음)"
+                            fxLight.Cols("태양광모듈방위").AllowEditing = False
+                        Case Else
+                            fxLight.Cols("태양광모듈방위").AllowEditing = True
+                    End Select
+            End Select
+        Catch ex As Exception
+
+        End Try
+
     End Sub
 
     Private Sub DataColumnChanged_ground(sender As Object, e As System.Data.DataColumnChangeEventArgs)