ComboBox,DataTable,DataRow llenar ComboBox en VB.Net - Visual basic net

Autor YouCode - http://www.youcode.com.ar/visual-basic-net/combobox-datatable-datarow-llenar-combobox-mediante-un-datatable-en-vb-Net-230

Fecha 07/02/2014

Llenar ComboBox mediante un DataTable y DataRow con los dias que quedan del mes actual, ekemplo valido para aprender a llenar un ComboBox.

Como ejemplo es valido, en este caso llenaremos un DataTable con los dias del mes a partir del dia actual y cargaremos un ComboBox.

Declaraciones y definicion del tipo de datos para cada columna:

 Dim Dt As New DataTable
 Dt.Columns.Add("id", GetType(Integer))
 Dt.Columns.Add("numero", GetType(String))
 Dim Dr As DataRow

Vamos a tomar el ultimo dia del mes actual:

Dim UltimoDia as Integer=0
UltimoDia = Date.DaysInMonth(Now.Year, Month(DateAdd(DateInterval.Month, 1, Now())))

Ahora haremos el bucle para llenar el dataset pero creando los registros:

For x As Integer = 1 To UltimoDia
                Dr = Dt.NewRow
                Dr("id") = x
                Dr("numero") = x
                Dt.Rows.Add(Dr)
Next

Llenar el ComboBox:

Me.cbo_dias.DataSource = Dt
Me.cbo_dias.DisplayMember = "numero"
Me.cbo_dias.ValueMember = "id"

y posicionamos el ComboBox con el dia actual:

If Me.cbo_dias.Items.Count > 0 Then Me.cbo_dias.SelectedValue = Now.Day

http://www.youcode.com.ar/visual-basic-net/combobox-datatable-datarow-llenar-combobox-mediante-un-datatable-en-vb-Net-230