jj 28.09 select correct index for tab

This commit is contained in:
JenneJ 2016-09-28 14:06:16 +02:00
parent 93528062ba
commit 4a0e7cf3b1

View File

@ -315,7 +315,6 @@
End Sub
Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
Save_Dokart()
Dim _temp As String
akt_DokartID = GUIDTextBox.Text
Dim sql As String = "select COUNT(T.GUID) FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID
@ -328,16 +327,9 @@
msg = "Attention: You did not assign at least one entity to the document-type!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
XtraTabControl1.SelectedTabPageIndex = 1
XtraTabControl1.SelectedTabPageIndex = 2
cmbEntity_Doctype.DroppedDown = True
End If
'_temp = Me.NAMENKONVENTIONTextBox.Text
'akt_Namenkonvention = _temp
'Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention
'If _temp <> NAMENKONVENTIONTextBox.Text Then
' Save_Dokart()
'End If
End Sub
Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click