Skip to main content

Get/Set data

  1. Add following code to the code section in the report designer
Shared Data as New System.Collections.Hashtable

Public Function GetData(Group as integer, Num as integer) as Object
  Return Cstr(Choose(Num, Split(Cstr(Data(Group)),Chr(177))))
End Function

Public Function SetData(NewData as Object, Group as integer) as Boolean
  Data(Group) = NewData
  Return TRUE
End Function
  1. Give the Text Box a name {Name of Text Box}
  2. Add following code to the Visibility Expression
IIF(Code.SetData(ReportItems!{Name of Text Box}.Value, 3) = TRUE, TRUE, TRUE)

  1. Add following code to the Text Box Expression
Cstr("") + Chr(177) + 
Cstr("")
  1. Change the "" with the fields