'Get MFGNames to spinner
SQL1.Initialize(DBFilePath, DBFilename, False)
Cursor1 = SQL1.ExecQuery("SELECT MFG FROM BC2015 order by MFG Asc")
'Get last calculation values
If Cursor1.RowCount<>0 Then
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position=i
MFGNAME=Cursor1.GetString("MFG") 'first item to spinner
If MFGNAMESAVED="" Then
Spinner1.add(MFGNAME)
MFGNAMESAVED=MFGNAME
End If
If MFGNAMESAVED<>"" Then 'all other items
If MFGNAME<>MFGNAMESAVED Then
Spinner1.Add (MFGNAME)
MFGNAMESAVED=MFGNAME
End If
End If
Next
End If
Cursor1.Close
Catch
Msgbox(LastException,"ERROR")
End Try