Poplating a List Box or Combo Box

Question

Hello,
I need to add a list box onto the AR invoice screen that displays all employees. I need to do this using the SDK, 2004A and VB.Net. Has anyone done this, please forward me the source.
Thanks John

Answer 1

On Form Load call the function :
Private Sub CreateItemsOnForm(ByVal strFormUID As String)
        Dim mobjItem As SAPbouiCOM.Item
        Dim mobjCombo As SAPbouiCOM.ComboBox
        oForm= objSBOApplication.Forms.Item(strFormUID)
        Try
            mobjItem = oForm.Items.Add("XYZ",SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
            mobjItem.Width =
            mobjItem.Left =
            mobjItem.Height =
            mobjItem.Top =
            mobjItem.FromPane = 0
            mobjItem.ToPane = 0
            mobjItem.Enabled = True
            mobjItem.DisplayDesc = True
            mobjCombo = mobjItem.Specific
           Catch ex As Exception
            Throw ex
        End Try
    End Sub
AND FOR FILLING COMBO
Dim mobjForm As SAPbouiCOM.Form
        Dim mobjCombo As SAPbouiCOM.ComboBox
        Dim mobjRecordset As SAPbobsCOM.Recordset
        Dim intCount As Integer
        Try
            mobjForm = objSBOApplication.Forms.Item(strFormuid)
            mobjCombo = mobjForm.Items.Item("XYZ").Specific
            mobjRecordset = gobjCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            mobjRecordset.DoQuery("SELECT EMPCODE,EMPNAME FROM TABLE")
            Do While mobjCombo.ValidValues.Count > 0
                mobjCombo.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)
            Loop
            For intCount = 0 To mobjRecordset.RecordCount - 1
                mobjCombo.ValidValues.Add(mobjRecordset.Fields.Item("EMPCODE").Value, mobjRecordset.Fields.Item("EMPNAME").Value)
                mobjRecordset.MoveNext()
            Next
                   Catch ex As Exception
            Throw ex
                End Try