none
Pasar un registro en un datatable .net vb

    Pregunta

  • Buenas,

    ¿Como hago para pasar al siguiente registro si estoy leyendo un datatable dentro de un for each? Es decir, hago una operación y que antes que pase al next, le obligue a pasar un registro.

    Gracias

    lunes, 19 de diciembre de 2016 22:39

Respuestas

  • Jesús Prieto,

    No entiendo el contexto de tu pregunta quizá si adjuntas algo de código puedas dejar claro el caso, pero si puntualmente deseas obtener una referencia al DataRow siguiente entonces basta con incrementar en uno el índice actual:

    For f As Integer = 0 To dt.Rows.Count - 1
    	Dim valorActual As String =
    		dt.Rows(f)("Col1").ToString()
    	Dim valorSiguiente As String =
    		dt.Rows(f + (IIf(f < dt.Rows.Count - 1, 1, 0)))("Col1").ToString()
    Next


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Jesús Prieto martes, 20 de diciembre de 2016 8:46
    martes, 20 de diciembre de 2016 5:52

Todas las respuestas

  • Jesús Prieto,

    No entiendo el contexto de tu pregunta quizá si adjuntas algo de código puedas dejar claro el caso, pero si puntualmente deseas obtener una referencia al DataRow siguiente entonces basta con incrementar en uno el índice actual:

    For f As Integer = 0 To dt.Rows.Count - 1
    	Dim valorActual As String =
    		dt.Rows(f)("Col1").ToString()
    	Dim valorSiguiente As String =
    		dt.Rows(f + (IIf(f < dt.Rows.Count - 1, 1, 0)))("Col1").ToString()
    Next


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Jesús Prieto martes, 20 de diciembre de 2016 8:46
    martes, 20 de diciembre de 2016 5:52
  • Hola;
    Si lo que intentas es tratar 1 elemento SI y otro NO, Prueba algo como esto

    Dim lbTratar As Boolean=True
    For Each drFila As DataRow In ldtDataTable.Rows
       If lbTratar=True Then
          'TU TRATAMIENTO
          lbTratar=False
       Else
          lbTratar=True
       End If
    Next

    Un saludo desde Bilbo
    Carlos
    martes, 20 de diciembre de 2016 6:29