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

Fix Profile-Assignment tables not refreshing

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-06 14:50:14 +02:00
parent b07f5a77bb
commit 80a7f719db
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -13,7 +13,9 @@ Public Class frmAdministration
Private email As New ClassEmail Private email As New ClassEmail
Public profile_guid As Integer = 0 Public profile_guid As Integer = 0
Dim formloaded As Boolean Dim formloaded As Boolean
Dim change_BindingSource As Boolean = False
Private Property change_BindingSource As Boolean = False
Dim FinalIndexChanging As Boolean = False Dim FinalIndexChanging As Boolean = False
Private INSERT_ACTIVE As Boolean = False Private INSERT_ACTIVE As Boolean = False
Dim DT_CHART_CONFIG As DataTable Dim DT_CHART_CONFIG As DataTable
@ -195,8 +197,9 @@ Public Class frmAdministration
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try Finally
change_BindingSource = False change_BindingSource = False
End Try
End Sub End Sub
Private Sub ObjekttypenEintragen() Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear() Me.cmbObjekttypen.Items.Clear()
@ -1479,7 +1482,7 @@ Public Class frmAdministration
MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical) MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical)
End Try End Try
End If End If
' change_BindingSource = False
End Sub End Sub
'Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged 'Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged
' If formloaded = False Then ' If formloaded = False Then