Dim Picker1 as Picker
Dim pickerItems As List
Dim data As List = su.LoadCSV(File.DirAssets, "datums.csv", ",")
PickerItems.Initialize
For Each S() As String In data
Dim d As Datum
d.Initialize
d.f = 1 / S(1)
d.A = S(2)
d.dx = S(3)
d.dy = S(4)
d.dz = S(5)
DatumData.Put(S(0), d)
pickerItems.Add(S(0))
Next
Picker1.SetItems(0, pickerItems) 'Fill Picker
Sub Picker1_ItemSelected (Column As Int, Row As Int) 'Get Selected Item
Dim datumName As String = Picker1.GetItems(Column).Get(Row)
selectedDatum = DatumData.Get(datumName)
AfterChange
End Sub