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”