Sub QueryScorerUmpire(CursorScorerUmpire As Cursor, SpnScorerUmpire As Spinner, mapScorerUmpire As Map, RegionID As Int, HintText As String)
'Dim CursorTeams As
CursorScorerUmpire = Main.SQL1.ExecQuery("Select UserID, Surname || ', ' || Name as FullName From ScorerUmpire Where RoleID in (6,7) And RegionID = " & RegionID & " Order By Surname, Name COLLATE NOCASE, Name COLLATE NOCASE")
SpnScorerUmpire.Clear
mapScorerUmpire.Clear
SpnScorerUmpire.Add(HintText)
mapScorerUmpire.Put(HintText, 0)
If CursorScorerUmpire.RowCount <> 0 Then
For I = 0 To CursorScorerUmpire.RowCount - 1
CursorScorerUmpire.Position = I
SpnScorerUmpire.Add(CursorScorerUmpire.GetString("FullName"))
mapScorerUmpire.Put(CursorScorerUmpire.GetString("FullName"), CursorScorerUmpire.GetInt("UserID"))
Next
CursorScorerUmpire.Close
End If
End Sub