Olá Nidhi,
Você precisa fazer algo assim:
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 isso ajude.
Atenciosamente,
ANKIT CHAUHAN
Suporte de SAP SME
