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

MS ClickedProfileID und Title Safety

Browse Source
This commit is contained in:
SchreiberM 2021-10-04 15:42:26 +02:00
parent 95e9f9548e
commit a071aff2f0
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1173,12 +1173,7 @@ Public Class frmMain
TimerRefresh.Stop() TimerRefresh.Stop()
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
For Each orow As DataRow In CURRENT_DT_PROFILES.Rows
If orow.Item("GUID") = CURRENT_CLICKED_PROFILE_ID Then
CURRENT_CLICKED_PROFILE_TITLE = orow.Item("TITLE")
Exit For
End If
Next
Await Load_Grid_Overview(pIsFormLoad, ForceReload) Await Load_Grid_Overview(pIsFormLoad, ForceReload)
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Await Load_single_Profile(ForceReload) Await Load_single_Profile(ForceReload)
@ -1468,7 +1463,11 @@ Public Class frmMain
End If End If
If Len(oHitProfilID) > 0 Then If Len(oHitProfilID) > 0 Then
If oHitProfilID > 0 Then If oHitProfilID > 0 Then
CURRENT_CLICKED_PROFILE_ID = oHitProfilID If oHitProfilID <> CURRENT_CLICKED_PROFILE_ID Then
LOGGER.Debug($"Item_Scope: oHitProfilID {oHitProfilID} <> CURRENT_CLICKED_PROFILE_ID {CURRENT_CLICKED_PROFILE_ID} ")
CURRENT_CLICKED_PROFILE_ID = oHitProfilID
End If
End If End If
End If End If
@ -1480,7 +1479,7 @@ Public Class frmMain
CURRENT_JUMP_DOC_GUID = 0 CURRENT_JUMP_DOC_GUID = 0
CURRENT_DOC_GUID = 0 CURRENT_DOC_GUID = 0
CURRENT_ProfilGUID = CURRENT_CLICKED_PROFILE_ID CURRENT_ProfilGUID = CURRENT_CLICKED_PROFILE_ID
LOGGER.Debug($"Item_Scope: hitInfo.InGroupRow...oHitProfilID [{CURRENT_CLICKED_PROFILE_ID}]") LOGGER.Debug($"Item_Scope: hitInfo.InGroupRow...CURRENT_CLICKED_PROFILE_ID [{CURRENT_CLICKED_PROFILE_ID}]")
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID) Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
@ -2136,6 +2135,19 @@ Public Class frmMain
Else Else
GridViewItem_Clicked = Nothing GridViewItem_Clicked = Nothing
End If End If
If Not IsNothing(CURRENT_CLICKED_PROFILE_ID) Then
If IsNumeric(CURRENT_CLICKED_PROFILE_ID) Then
If CURRENT_CLICKED_PROFILE_ID > 0 Then
For Each orow As DataRow In CURRENT_DT_PROFILES.Rows
If orow.Item("GUID") = CURRENT_CLICKED_PROFILE_ID Then
CURRENT_CLICKED_PROFILE_TITLE = orow.Item("TITLE")
Exit For
End If
Next
End If
End If
End If
End Sub End Sub
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged