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

MS Profiletitle Param

Browse Source
This commit is contained in:
SchreiberM 2021-01-12 17:26:58 +01:00
parent 8fb885edff
commit 258af8d3c7
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/frmAdmin2.vb
View File

@ -164,7 +164,7 @@ Public Class frmAdmin2
GRID2_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_TITLE") GRID2_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_TITLE")
GRID2_SQL = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_SQL") GRID2_SQL = DT_FURTHER_KONFIG_VIEW.Rows(1).Item("GRID_SQL")
GridViewWK2.Tag = GRID1_TITLE GridViewWK2.Tag = GRID2_TITLE
GridViewWK2.Columns.Clear() GridViewWK2.Columns.Clear()
Dim oDTGRID2 As DataTable = ClassDatabase.Return_Datatable(GRID2_SQL, "FurtherConfig-Load_Grid_Data2") Dim oDTGRID2 As DataTable = ClassDatabase.Return_Datatable(GRID2_SQL, "FurtherConfig-Load_Grid_Data2")
GridControlWK2.DataSource = oDTGRID2 GridControlWK2.DataSource = oDTGRID2

7
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1093,6 +1093,13 @@ 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(FormLoad, ForceReload) Await Load_Grid_Overview(FormLoad, 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)