Bugfix Gesamtsicherheiten

Aviso/frmGesamtsicherheitenNEU.vb

@@ -694,14 +694,14 @@ Public Class frmGesamtsicherheitenNEU
                     Return obj.value.ToString
                 End If
             Case "Integer"
-                If obj Is Nothing Then
+                If obj Is Nothing Or obj Is DBNull.Value Or obj = "" Then
                     Return Nothing
                 Else
-                    Return Integer.Parse(CStr(obj.value))
+                    Return Integer.Parse(CStr(obj))
                 End If
 
             Case "Double"
-                If obj Is Nothing Or obj Is DBNull.Value Then
+                If obj Is Nothing Or obj Is DBNull.Value Or obj = "" Then
                     Return Nothing
                 Else
                     Return Double.Parse(CStr(obj))