AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: fix final indicies, switch to first tab on load

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-14 15:36:32 +02:00
parent 3a9338b8a6
commit bc23d53bca
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -49,6 +49,8 @@ Public Class frmAdministration
btnUserManager.Enabled = False btnUserManager.Enabled = False
End If End If
tabctrl_Profilkonfig.SelectedIndex = 0
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try End Try
@ -865,6 +867,7 @@ Public Class frmAdministration
End If End If
Dim i, ID As Integer Dim i, ID As Integer
Try
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
If ID > 0 Then If ID > 0 Then
@ -876,6 +879,9 @@ Public Class frmAdministration
frmSQL_DESIGNER.ShowDialog() frmSQL_DESIGNER.ShowDialog()
End If End If
Catch ex As Exception
clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message)
End Try
Refresh_Final_indexe() Refresh_Final_indexe()
Catch ex As Exception Catch ex As Exception