DataGrid

[Guest]

How do I embed a combo box in a datagrid column in VB.NET

 

[Mona]

Hi,

Following is a code snippet of a function which is adding combo box in a
datagrid.

Dim ds As DataSet = New DataSet
Dim dt As DataTable = New DataTable("RO")
dt.Columns.Add(New DataColumn("Id", Type.GetType("System.UInt32")))
dt.Columns.Add(New DataColumn("Description", Type.GetType("System.String")))
Dim dr As DataRow = dt.NewRow
dr("Id") = 1
dr("Description") = "Paul"
dt.Rows.Add(dr)
dr = dt.NewRow
dr("Id") = 2
dr("Description") = "Mark"
dt.Rows.Add(dr)
ds.Tables.Add(dt)
dt = New DataTable("Task")
dt.Columns.Add(New DataColumn("Id", Type.GetType("System.UInt32")))
dt.Columns.Add(New DataColumn("Description", Type.GetType("System.String")))
dt.Columns.Add(New DataColumn("ROId", Type.GetType("System.UInt32")))
dr = dt.NewRow
dr("Id") = 1
dr("Description") = "Pauls Task"
dr("ROId") = 1
dt.Rows.Add(dr)
dr = dt.NewRow
dr("Id") = 2
dr("Description") = "Marks Task"
dr("ROId") = 2
dt.Rows.Add(dr)
ds.Tables.Add(dt)
Dim dgts As DataGridTableStyle = New DataGridTableStyle
dgts.MappingName = "Task"
dgts.GridColumnStyles.Add(New DataGridTextBoxColumn)
dgts.GridColumnStyles(0).MappingName = "Description"
dgts.GridColumnStyles(0).HeaderText = "Task Name"
dgts.GridColumnStyles(0).Alignment = HorizontalAlignment.Left
dgts.GridColumnStyles(0).Width = 100
dgts.GridColumnStyles(0).NullText = String.Empty
dgts.GridColumnStyles.Add(New DataGridComboBoxColumn(ds.Tables("RO"),
"Description", "Id"))
dgts.GridColumnStyles(1).MappingName = "ROId"
dgts.GridColumnStyles(1).HeaderText = "RO"
dgts.GridColumnStyles(1).Alignment = HorizontalAlignment.Left
dgts.GridColumnStyles(1).Width = 100
dgts.GridColumnStyles(1).NullText = String.Empty
dataGrid1.TableStyles.Add(dgts)
dataGrid1.DataSource = ds.Tables("Task")

HTH

Mona