edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfix Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2022-11-25 12:18:15 +01:00
parent 7c87228bff
commit d7109597c7
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmGesamtsicherheitenNEU.vb
View File

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