martes, 11 de febrero de 2014

Busca un valor en un Datatable

Crearemos un datatable con valores:

        Dim miDataTable As New DataTable
        miDataTable.Columns.Add("nombre")
        miDataTable.Columns.Add("paterno")
        miDataTable.Columns.Add("materno")
        Dim Renglon As DataRow = miDataTable.NewRow()
        Renglon("nombre") = "Mario"
        Renglon("parterno") = "Moreno"
        Renglon("materno") = "Lopez"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("nombre") = "Pedro"
        Renglon("parterno") = "Infante"
        Renglon("materno") = "Castro"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("nombre") = "Jorge"
        Renglon("parterno") = "Negrete"
        Renglon("materno") = "Montes"
        miDataTable.Rows.Add(Renglón)
        'busca en el datatable
        Dim v_nombre as string ="Pedro"
        Dim busca_renglon() As DataRow
        busca_renglon= miDataTable.Select("nombre='" & v_nombre & "'")
        If busca_renglon.Length > 0 Then
           MessageBox.Show(CStr(busca_renglon(0).Item(1)))

           'Resultado: Infante
        Else
            MessageBox.Show("No existe en nombre")
        End If

Comparte