Merge pull request IDEMSInternational#8983 from Vitalis95/dlghide

Fixed bug when using Hide/Unhide Data Frame Dialogue
Vitalis95 · May 17, 2024 · ff2376e · ff2376e
2 parents 34c555b + f05e027
commit ff2376e
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/instat/dlgHideDataframes.vb b/instat/dlgHideDataframes.vb
@@ -87,7 +87,7 @@ Public Class dlgHideDataframes
 
         ucrSelectorForDataFrames.Reset()
 
-        clsDummyFunction.AddParameter("checked", "rdoHide", iPosition:=0)
+        clsDummyFunction.AddParameter("checked", "rdoUnhide", iPosition:=0)
 
         clsMappingFunction.SetPackageName("purrr")
         clsMappingFunction.SetRCommand("map")
@@ -143,8 +143,11 @@ Public Class dlgHideDataframes
 
         If expTemp IsNot Nothing AndAlso expTemp.Type <> Internals.SymbolicExpressionType.Null Then
             chrHiddenColumns = expTemp.AsCharacter
-            For Each strDataFrame As String In chrHiddenColumns
-                ucrSelectorForDataFrames.lstAvailableVariable.Items.Add(strDataFrame)
+            For i As Integer = 0 To chrHiddenColumns.Length - 1
+                Dim strDataFrame As String = chrHiddenColumns(i)
+                Dim listItem As New ListViewItem(strDataFrame)
+                listItem.Tag = "data_names"
+                ucrSelectorForDataFrames.lstAvailableVariable.Items.Add(listItem)
             Next
         End If
     End Sub