From b8cfb26e0bfe8504c7a4bb9cd43455ff702037da Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 10 Mar 2020 17:07:51 +0100 Subject: [PATCH] MS --- app/DD_PM_WINDREAM/frmAdministration.vb | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 776198c..08f011c 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -128,12 +128,18 @@ Public Class frmAdministration End Sub Private Sub ObjekttypenEintragen() - Me.cmbObjekttypen.Items.Clear() - Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY" - Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) - For Each oROW As DataRow In oDT.Rows - Me.cmbObjekttypen.Items.Add(oROW.Item(1)) - Next + Try + Me.cmbObjekttypen.Items.Clear() + Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY" + Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) + For Each oROW As DataRow In oDT.Rows + Me.cmbObjekttypen.Items.Add(oROW.Item(1)) + Next + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error ObjekttypenEintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + End Try + End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click