From 258af8d3c721ac106c138d9d7c283aeadea57183 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 12 Jan 2021 17:26:58 +0100 Subject: [PATCH] MS Profiletitle Param --- app/DD_PM_WINDREAM/frmAdmin2.vb | 2 +- app/DD_PM_WINDREAM/frmMain.vb | 7 +++++++ 2 files changed, 8 insertions(+), 1 deletion(-) 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)