Los Rows van en pares ?

[damid3]

Hola soy un poco nuevo en vb pero a ver si me apaño para explicar
la idea es hacer un boton siguiente y un boton anterior
codigos
sigueinte

Código:

        query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            ri += 1
        End If
        consql.Close()

anterior

Código:

        query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 1 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            ri -= 1
        ElseIf ri = 0 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            MsgBox("Esta en el Primer Registro")
        End If
        consql.Close()

el tema es que en el siguiente salta de 2 en 2 osea solo me muestra los impares y en el anterior suma asi arriba como si fuese el boton siguiente

A ver si pueden darme una mano seguro que los grandes de aqui saben en que estoy metiendo la pata :D

Saludos

[damid3]

a ver pude hacer que valla de adelante con el siguiente y atras con el anterior pero me sigue saltando de a 2 alguna idea

Código:

        query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            ri += 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
        End If
        consql.Close()

Código:

 query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 0 Then
            ri -= 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
        ElseIf ri = 0 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            MsgBox("Esta en el Primer Registro")
        End If
        consql.Close()

[damid3]

Bueno ya lo tengo resuelto con lo siguiente

Código:

   query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            ri += 1
            da.Fill(ds, ri = ri + 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        End If
        consql.Close()

Código:

 query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 0 Then
            ri -= 1
            da.Fill(ds, ri = ri - 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        ElseIf ri = 0 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            MsgBox("Esta en el Primer Registro")
            tba.Text = ri
        End If
        consql.Close()

Saludos