MS Release

app/DD_PM_WINDREAM/ClassIDBData.vb

@@ -55,8 +55,20 @@
         Try
             For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
                 If oRow.Item("ATTR_TITLE") = indexname Then
-                    Dim oType = oRow.Item("TYP_ID")
-                    Return oType
+                    Try
+                        Dim oType = oRow.Item("TYP_ID")
+                        Return oType
+                    Catch ex As Exception
+                        Try
+                            Dim oType = oRow.Item("TYP_ID")
+                            Return oType
+                        Catch ex1 As Exception
+                            LOGGER.Error(ex)
+                            Return Nothing
+                        End Try
+
+                    End Try
+
                 End If
             Next