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

26
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -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
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
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