This commit is contained in:
Jonathan Jenne
2019-10-25 16:09:17 +02:00
parent 7280e604fa
commit dbe4abfb39
4 changed files with 118 additions and 140 deletions

View File

@@ -118,7 +118,6 @@ Public Class frmAdministration
End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
If PROFILE_IDTextBox.Text <> "" Then
If CtrlApplicationAssignment1.AssignProfileID(PROFILE_IDTextBox.Text) = False Then
MsgBox("Unexpected Error while assigning ProfileID!", MsgBoxStyle.Critical)
@@ -130,16 +129,9 @@ Public Class frmAdministration
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Load_Profile_Process()
If LogConfig.Debug = True Then
labelSelection.Caption = CtrlApplicationAssignment1.AppSelectionString
labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
End If
End Sub
Sub Refresh_ProfileData()
Try
VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString