¿Cómo puedo navegar por el registro (siguiente, anterior, primero y último)?

VB.NET

Imports System.Xml
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xmldoc As New XmlDataDocument()
        Dim xmlnode As XmlNodeList
        Dim i As Integer
        Dim str As String
        Dim fs As New FileStream("Book1.xml", FileMode.Open, FileAccess.Read)
        xmldoc.Load(fs)
        xmlnode = xmldoc.GetElementsByTagName("Book")
        For i = 0 To xmlnode.Count - 1
            xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
            str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim() & " | " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim() & " | " & xmlnode(i).ChildNodes.Item(2).InnerText.Trim()
            MsgBox(str)
        Next
        Me.DataGridView1.Rows.Add(TextBox1.Text, TextBox2.Text, ComboBox1.Text, TextBox3.Text)
    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        XmlNodeList -= 1

        If XmlNodeList < 0 Then
            XmlNodeList = 0
        End If
        ShowData(XmlNodeList

    End Sub
End Class

Lo que he probado:

VB.NET

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        XmlNodeList -= 1

        If XmlNodeList < 0 Then
            XmlNodeList = 0
        End If
        ShowData(XmlNodeList

    End Sub
End Class

Solución 1
Solución 2

Solución 1

Tendrá que explicar mucho más claramente lo que está tratando de hacer y qué problemas tiene al hacerlo antes de que podamos comenzar a ayudarlo a resolver el problema: simplemente haga una pregunta como “¿Cómo puedo navegar por el registro (siguiente , anterior, primero y último)” que requiere cuatro métodos y simplemente proporcionar el código “Lo que he probado” para un método que ni siquiera se compila no le ayuda en absoluto.

Y, francamente, necesitas aprender algunos conceptos básicos de estilo de codificación antes de continuar.
En primer lugar: deje de usar los nombres predeterminados de Visual Studio para todo; puede recordar que “TextBox8” es el número de teléfono móvil actual, pero cuando tenga que modificarlo dentro de tres semanas, ¿lo hará? Utilice nombres descriptivos, “tbMobileNo”, por ejemplo, y su código será más fácil de leer, más autodocumentado, más fácil de mantener y sorprendentemente más rápido de codificar porque Intellisense puede llegar a “tbMobile” con tres pulsaciones de teclas, mientras que “TextBox8” requiere pensar. acerca de y 8 pulsaciones de teclas…
Seis botones o más, todos llamados “Botón1” a “Botón6”, con nombres predeterminados para un montón de cuadros de texto también significan que su código es ilegible sin mirar el diseño para determinar qué deben hacer los botones. Y eso significa que los errores son fáciles de cometer y difíciles de detectar.

Deja de usar MsgBox: está realmente desactualizado. Murió con VB6, allá por 2001, cuando se lanzó .NET, y existe sólo para que se pueda ejecutar el código VB6. Justo. Utilice MessageBox.Show en su lugar.

Ahora siéntate, piensa en tu tarea y en lo que tienes que hacer, y recuerda que no podemos ver tu pantalla, no podemos acceder a tu disco duro, no recibimos tu tarea de tu maestro y no podemos leer. tu mente. Solo recibimos exactamente lo que usted escribe: así que si desea ayuda, explique dónde está atascado, qué ha intentado y qué sucedió cuando lo hizo. Díganos qué ayuda necesita y recuerde que la tarea está ahí para ayudarle a aprender, por lo que no le daremos simplemente el código listo para entregar como si fuera su propio trabajo.

Solución 2

Ver: Navegar XML con la clase XPathNavigator – Visual Basic | Documentos de Microsoft[^]