Use this event to dynamically fill a cell combo box list, when its property is set to Fill in Script using the configured delimiter.

If the combo box behavior is additionally set to Restricted content for each value a description can be added that is separated by the description delimiter. With the Project.Resources object you can also provide translations for each description.

ValidationForm_BeforeTableCellComboBoxDropDown( _
    ByVal pXDoc As CASCADELib.CscXDocument, _
    ByVal pField As CASCADELib.CscXDocField, _
    ByVal RowIndex As Long, _
    ByVal ColumnIndex As Long, _
    ByRef ComboboxItems As String _
    )

pXDoc

XDocument object that is currently loaded.

pField

Field object that contains the table on which a combo box is being opened.

RowIndex

Zero-based index of the row the cell with the combo box belongs to.

ColumnIndex

Zero-based index of the column in the table the cell with the combo box belongs to. Using invisible columns this can be different from the displayed column index.

ComboboxItems

String containing the list of combo box items as a separated string.

' class script
Private Sub ValidationForm_BeforeTableCellComboBoxDropDown(ByVal pXDoc As CASCADELib.CscXDocument, _
  ByVal pField As CASCADELib.CscXDocField, ByVal RowIndex As Long, ByVal ColumnIndex As Long, _
  ByRef ComboboxItems As String)

  'Table field and column of the combobox
  Dim TableFieldName As String
  Dim ColumnName As String
  TableFieldName = "LineItems"
  ColumnName = "Description"

  Select Case pField.Name
      Case TableFieldName
        Select Case ColumnIndex
            'Find the column index by using the name of the column we want
            Case pField.Table.Columns.ItemByName(ColumnName).IndexInTable
              ComboboxItems = _
                  "Order;" & _
                  "Invoice;" & _
                  "Delivery Note;" & _
                  "Credit Note;"
        End Select
  End Select
End Sub