Private Sub GridDataBoundGrid1_CurrentCellActivating(sender As Object, e As Syncfusion.Windows.Forms.Grid.GridCurrentCellActivatingEventArgs) Handles GridDataBoundGrid1.CurrentCellActivating
Dim CurrentCell As Syncfusion.Windows.Forms.Grid.GridCurrentCell = TryCast(sender, Syncfusion.Windows.Forms.Grid.GridDataBoundGrid).CurrentCell
Dim grid = TryCast(sender, Syncfusion.Windows.Forms.Grid.GridDataBoundGrid)
If e.ColIndex < 0 Then Return
If grid.GridBoundColumns(e.ColIndex - 1).HeaderText = gbcBOR_ID.HeaderText Then
' gbcBOR_ID.StyleInfo.CellType = "ComboBox"
Dim table = New DataTable("HaHa")
table.Columns.Add(New DataColumn("col1"))
table.Columns.Add(New DataColumn("col2"))
Dim row = table.NewRow
row("col1") = String.Format("Fred_{0}", e.RowIndex)
row("col2") = String.Format("Winkel_{0}", e.RowIndex)
table.Rows.Add(row)
Dim row1 = table.NewRow
row1("col1") = String.Format("GooGoo_{0}", e.RowIndex)
row1("col2") = String.Format("Minkel_{0}", e.RowIndex)
table.Rows.Add(row1)
grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.DisplayMember = "col1"
grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.ValueMember = "col2"
grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.DataSource = table
If IsNothing(grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.Tag) Then
grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.Tag = -1 ' unknown selection
Else
'grid.GridBoundColumns(e.ColIndex - 1).StyleInfo.SetValue =
End If
End If
' UpdateComboBoxSelector(e.RowIndex)
End Sub
</code>