Sub FillErrorsSpinner
dbcursor=dbsql.ExecQuery("SELECT Number FROM table")
For i = 0 To dbcursor.RowCount-1
dbcursor.Position=i
spnErrors.add(dbcursor.GetString("Error"))
Next
dbcursor.Close
End Sub
Sub spnErrors_ItemClick (Position As Int, Value As Object)
ddcursor=dbsql.ExecQuery2("SELECT Solution FROM table WHERE Solution=?",Array As String(Value))
For z = 0 To ddcursor.RowCount-1
ddcursor.Position=z
EditText1.Text=ddcursor.GetString("Solution")
Next
ddcursor.Close
End Sub