EndOfRecord As String

 

Returns the record delimiter string {*REC*} which terminates a record of a custom listbox row.

 

Using the Layout Editor, one can add or modify custom listboxes to the databox of WindowMain or to WindowLink. The contents of such listbox is saved into one database field as a string, where each field and record is terminated by the EndOfField and EndOfRecord identifiers.

 

Contents of the listbox can added or retrieved and altered through XojoScripts.

 

Example for a custom listbox record:

2014-07-26{*FLD*}Cash{*FLD*}613.0{*REC*}

  

Returns:

 

Type	Value	Description
String	{*REC*}	Record terminator string of a custom listbox

 

Available in:

 

WindowMain	WindowLink
YES	YES

 

 Used in:

 

XojoScript Name	GUID
Load seminar prices to registration	1E3DB33D-DC46-46BB-8483-C15DBDF3A423
Import ISR payment file	52C27AC4-24B7-4B7D-9107-6223B4E10E45
Show selected event pricelist details	9ACFE85C-A75D-468A-B429-98F0D9C56862
Edit Registration	89F9973D-C3A4-4466-BAE7-8AE85115AE09
Save as Excel sheet : seminar invoice list	6DDAFA87-2862-4129-8416-CBD57C5CDF9A
Save As Excel : Seminar pricelist CHF	986A0CAA-4B89-4E04-8984-FBB28538E740

 

Example Code:

 

// Get Index of selected record in listbox

Dim idx As Integer = ListIndex("imLB_evt_List3")

 

// Skip if idx is -1, then there is no selection

If idx >= 0 Then

 

// Retrieve listbox text and store its records into an array

Dim arrLBRecs(-1) As String = Split(GetText("imLB_evt_List3"),EndOfRecord)

 

// Retrieve selected record

Dim rec As String = arrLBRecs(idx)

 

// store fields of selected record into an array

Dim arrRecFlds(-1) As String = Split(rec,EndOfField)

 

// Write each field out to textfields on screen

SetText("imTF_evt_PriceCode",arrRecFlds(0))

SetText("imTF_evt_Price",arrRecFlds(1))

SetText("imTF_evt_PriceEuro",arrRecFlds(2))

SetText("imTF_evt_TextD",arrRecFlds(3))

SetText("imTF_evt_TextE",arrRecFlds(4))

SetText("imTF_evt_TextF",arrRecFlds(5))

 

End If  // idx >= 0