MS

2017-05-24 11:46:17 +02:00
parent 1d18370ec0
commit 9c0e09dcef
28 changed files with 659 additions and 887 deletions
--- a/app/DD-Record-Organizer/ClassControlLoader.vb
+++ b/app/DD-Record-Organizer/ClassControlLoader.vb
@@ -248,9 +248,14 @@
                            End If
                        End If
                    Else
-                        control.Text = autoValue
+                        If IsDBNull(autoValue) Then
+                            control.Text = "ATTENTION: result of select was dbnull"
+                        Else
+                            control.Text = autoValue
+                        End If
+
+                    End If
                    End If
-                End If
            Catch ex As Exception
                MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)