Hai , How to create 'Define New ' ?

Question

hai,
How to create 'Define New ' in Combo box and then Enter the value in the user defined table how to get the value  from the database table and display combo box ?

Answer 1

Hi.
I used this example for the matrix column. It's work and open a form for defining new values.
Your need to add an event to refresh values in combobox.
Think I help you.
Best regards
Sierdna S.
P.S. How to proceed.
1) Fill the combobox with valid values:
Try
  ' Add first value to combobox
  oCombo.ValidValues.Add("", "")
  Dim oRS As SAPbobsCOM.Recordset
  oRS = SBO_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
  Dim sSql As String = "SELECT Code, Name FROM [@" & sLinkedTable & "]"
  oRS.DoQuery(sSql)
  oRS.MoveFirst()
  While oRS.EoF = False
      oCombo.ValidValues.Add(oRS.Fields.Item("Code").Value, oRS.Fields.Item("Name").Value)
      oRS.MoveNext()
  End While
  ' Last value
  oCombo.ValidValues.Add("Define","Define")
  If Not oRS Is Nothing Then
      System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS)
      oRS = Nothing
  End If
  System.GC.Collect() 'Release the handle to the table
Catch ex As Exception
  ' log exception
Finally
  oCombo = Nothing
End Try
2) In Item event handler
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT _
And pVal.FormUID = sFormUID _
And pVal.ItemUID = sMatrixUID _
And pVal.ColUID = sColUID _
And pVal.BeforeAction = False _
And pVal.ItemChanged = True _
Then
  Try
    Dim oMatrix As SAPbouiCOM.Matrix
    oMatrix = oForm.Items.Item(MatrixID).Specific
    If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing"))
    Try
      Dim oCombo As SAPbouiCOM.ComboBox
      Dim sValue As String = ""
      oCombo = oMatrix.Columns.Item(sColUID).Cells.Item(pVal.Row).Specific
      sValue = oCombo.Selected.Value
      If sValue.Equals("Define") Then
        Try
            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            oForm.Refresh()
        Catch ex As Exception
        ' log exception
        End Try
        SBO_Application.Menus.Item("<menu id to activate>").Activate()
      End If
      BubbleEvent = False
    Catch ex1 As Exception
      ' log exception
    End Try
  Catch ex As Exception
    ' log exception
  End Try
End If