From 548e8db47f26774ff2d48dbe74feff791e04efff Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 27 Feb 2019 16:18:19 +0100 Subject: [PATCH] Catch corrupt or empty config --- app/DD_PM_WINDREAM/ModuleMySettings.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleMySettings.vb b/app/DD_PM_WINDREAM/ModuleMySettings.vb index 4b7bd45..7bc1af6 100644 --- a/app/DD_PM_WINDREAM/ModuleMySettings.vb +++ b/app/DD_PM_WINDREAM/ModuleMySettings.vb @@ -116,14 +116,16 @@ Module ModuleMySettings Return False End Try End Function - Private Function GetTablefromXML(ConfigPath As String) + Private Function GetTablefromXML(ConfigPath As String) As DataTable Try Dim oDataset As New DataSet oDataset.ReadXml(ConfigPath) Return oDataset.Tables(0) Catch ex As Exception - MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return Nothing + Dim oDataTable = CreateConfigTable() + oDataTable.WriteXml(GetUserConfigPath()) + MsgBox("Fehler beim Laden der Konfiguration. Es wurde die Standard Konfiguration geladen. Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return oDataTable End Try End Function Private Function CreateConfigTable() As DataTable