Hi all:
I want to feel a combobox with the result of a Query, but I can't get the result when I feel it, can any one help me pls.
Here is the code:
dim oprom as sabbouicom.combobox
oRecordset.DoQuery ("SELECT PrjName,PrjCode From OPRJ ")
Set oprom = oForm.Items.Item("11").Specific
oprom.DataBind.SetBound True, "OPRJ", "PrjName"
If oRecordset.RecordCount <> 0 Then
oprom.ValidValues.Add(.Fields.Item("PrjName").Value, .Fields.Item("PrjCode").Value)
End If
End With
Add a comment