Returns the
field delimiter string {*FLD*} which ends a field of a custom
listbox record.
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 |
{*FLD*} |
Field
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