Option Strict On
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    Private file As String = "F:\Work Dev\VSNet Dev\Test\LoadXmlIntoDataSet.xml"
    Private ds As New DataSet
    Private cm As CurrencyManager
    Private dv As DataView
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ds.ReadXml(file, XmlReadMode.InferSchema)
 
        dv = ds.Tables("kunden").DefaultView
        dv.Sort = "Id"
 
        TextBox1.DataBindings.Add("Text", dv, "Id")
        TextBox2.DataBindings.Add("Text", dv, "firma")
        TextBox3.DataBindings.Add("Text", dv, "vorname")
        TextBox4.DataBindings.Add("Text", dv, "nachname")
 
        cm = CType(BindingContext(dv), CurrencyManager)
 
    End Sub
 
    Private Sub FindButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles FindButton.Click
        If TextBox5.Text = String.Empty Then
            MsgBox("Enter search value")
            Return
        End If
 
        Dim pos As Integer = dv.Find(TextBox5.Text)
        If pos > -1 Then
            cm.Position = pos
        Else
            MsgBox("Entry not found")
        End If
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist