I have a few combo boxes on a b4i form that is made up of a layout with a scrollview and embedded is a layout with my views on. I have tried to set the items in the combo box using the same methods I have used elsewhere, but the combo box is staying blank, any help would be appreciated...
B4X:
Dim Query As String
Dim lstContract As List
Dim lstWAH As List
lstContract.Initialize
lstContract.Add("Select Contract")
lstContract.Add("No Contract")
If Main.lngSubContractID <>0 Then
Query="Select contract.con_name from Contract INNER JOIN SubcontractorContract on Contract.con_id=subcontractorcontract.dsc_contract where (((SubcontractorContract.dsc_subcontractor)=" & Main.lngSubContractID & ")) order by contract.con_name"
Else
Query="Select con_name from Contract order by con_name"
End If
Dim rsContract As ResultSet = Starter.SQLStat.ExecQuery(Query)
Do While rsContract.NextRow
lstContract.Add(rsContract.Getstring("con_name"))
Loop
cmbContract.SetItems(lstContract)
cmbContract.SelectedIndex = 0
lstWAH.Initialize
lstWAH.Add("Select Contract")
lstWAH.Add("No Contract")
cmbWAH.SetItems(lstWAH)