diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index 145a0cf..b85e8a5 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -164,7 +164,7 @@ Public Class frmAdmin2 GRID2_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_TITLE") GRID2_SQL = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_SQL") - GridViewWK2.Tag = GRID1_TITLE + GridViewWK2.Tag = GRID2_TITLE GridViewWK2.Columns.Clear() Dim oDTGRID2 As DataTable = ClassDatabase.Return_Datatable(GRID2_SQL, "FurtherConfig-Load_Grid_Data2") GridControlWK2.DataSource = oDTGRID2 diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index c232322..3a67bcf 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1093,6 +1093,13 @@ Public Class frmMain TimerRefresh.Stop() 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(FormLoad, ForceReload) ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then Await Load_single_Profile(ForceReload)