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)