Dim cursor1 As Cursor
Dim Fraz As List
Fraz.Initialize
DM.InalizzaDb
Builder.Initialize("Dialog4")
Builder.Title("Frazionamento")
cursor1 = DM.SQL.ExecQuery("Select Frazionamento FROM " & DM.DbTabFrazionamento)
If cursor1.RowCount > 0 Then
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
Fraz.Add(cursor1.GetString("Frazionamento"))
Next
End If
Builder.Items(Array As String(?)) 'what to put
Builder.PositiveText("Ok")
Builder.itemsCallbackSingleChoice(0)
Builder.Show
Fraz.Clear