Como agregar DataRow a un DataTable

0
1794

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 dt As New DataTable
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.DataSource = dt
Me.cboValores.ValueMember = «Valor»
Me.cboValores.DisplayMember = «Descripcion»

Dejar respuesta

Please enter your comment!
Please enter your name here

Protected with IP Blacklist CloudIP Blacklist Cloud