From f05e0272a643bcb88597460e47d21fe9db9db43a Mon Sep 17 00:00:00 2001 From: KWAMBAI VITALIS Date: Fri, 17 May 2024 12:26:58 +0300 Subject: [PATCH] changes to the code --- instat/dlgHideDataframes.vb | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/instat/dlgHideDataframes.vb b/instat/dlgHideDataframes.vb index 3bcfa18a868..5700bda93e5 100644 --- 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