Hola Nidhi,
Necesitas hacer algo como esto:
Private Sub AddItemsToCombo(ByVal oColumn As SAPbouiCOM.Column)
Dim RS As SAPbobsCOM.Recordset
Dim Bob As SAPbobsCOM.SBObob
RS = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
Bob = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
RS = Bob.GetItemList
RS.MoveFirst()
While RS.EoF = False
oColumn.ValidValues.Add(RS.Fields.Item("ItemCode").Value, RS.Fields.Item("ItemName").Value)
RS.MoveNext()
End While
End Sub
Espero que te ayude.
Saludos cordiales,
ANKIT CHAUHAN
Soporte de SAP SME