Pueden existir muchos motivos para crear un DataTable de forma manual, ya sea que queremos llenar un ComboBox con algunos datos exactos u otro motivo importante.
Para esto podríamos utilizar este código:
Dim dr As DataRow
dt.Columns.Add(New DataColumn(«Codigo», GetType(String)))
dt.Columns.Add(New DataColumn(«Descripcion», GetType(String)))
dt.Columns.Add(New DataColumn(«Valor», GetType(Integer)))
dr = dt.NewRow()
dr(«Codigo») = «A»
dr(«Descripcion») = «Activo»
dr(«Valor») = 1
dt.Rows.Add(dr)
dr = dt.NewRow()
dr(«Codigo») = «I»
dr(«Descripcion») = «Inactivo»
dr(«Valor») = 2
dt.Rows.Add(dr)
dr = dt.NewRow()
dr(«Codigo») = «B»
dr(«Descripcion») = «Bloqueado»
dr(«Valor») = 3
dt.Rows.Add(dr)
Claro también podríamos tener esta creación de forma dinámica, metiendo la parte del dr = dt.NewRow.. dentro de algón ciclo, for, while.
Y en el caso de que queramos mostrar este datatable en un ComboBox solo se lo asignamos al DataSource
Me.cboValores.ValueMember = «Valor»
Me.cboValores.DisplayMember = «Descripcion»
