From bc23d53bcacf1ce4e8903b8e0141d1cb2e76a993 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 14 Jun 2018 15:36:32 +0200 Subject: [PATCH] jj: fix final indicies, switch to first tab on load --- app/DD_PM_WINDREAM/frmAdministration.vb | 28 +++++++++++++++---------- 1 file changed, 17 insertions(+), 11 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index fe05dd6..0ce6509 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -49,6 +49,8 @@ Public Class frmAdministration btnUserManager.Enabled = False End If + tabctrl_Profilkonfig.SelectedIndex = 0 + Catch ex As Exception MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -865,17 +867,21 @@ Public Class frmAdministration End If Dim i, ID As Integer - i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index - ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value - If ID > 0 Then - CURRENT_INDEX_ID = ID - CURRENT_DESIGN_TYPE = "FINAL_INDEX" - CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text - CURRENT_SQL_CON = CONID - CURRENT_ProfilGUID = PROFILGUIDTextBox.Text - - frmSQL_DESIGNER.ShowDialog() - End If + Try + i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index + ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value + If ID > 0 Then + CURRENT_INDEX_ID = ID + CURRENT_DESIGN_TYPE = "FINAL_INDEX" + CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text + CURRENT_SQL_CON = CONID + CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + + frmSQL_DESIGNER.ShowDialog() + End If + Catch ex As Exception + clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message) + End Try Refresh_Final_indexe() Catch ex As Exception