Announcement

**robert.oh.** · 10.10.2007, 09:44

Hallo Laura,

War wohl doch nicht so eine ruhige Nachtruhe ;-)

Dass der Wert des Primaerfeldes (dein Suchfeld) in der DB geaendert wird koennte meiner Meinung nach damit vermieden werden, indem du dieser Textbox einfach die BindingSource entziehst und - wie bereits in deinem Code ersichtlich - die Operationen manuell durchfuehrst.

Zum Navigieren:
Die BindingSource enthaelt eine Methode 'Find' welche dir den Index / Datensatznummer des gefundenen Wertes zurueck gibt, oder -1 (in C#).
Anschliessend kannst du mit Hilfe der BindingSource Property 'Position' deinen Datensatzzeiger richtig platzieren.

Beispiel, ist zwar in C# aber die Idee bleibt die selbe:
('textBox1' entspricht deinem 'Bediener' und 'ArtNr' ist mein PK Feld.)

Code:

private void textBox1_Leave(object sender, EventArgs e)
{
    int index = this.testArtikelBindingSource.Find("ArtNr", (sender as TextBox).Text);
    if (index != -1)
    { this.testArtikelBindingSource.Position = index; }
 }

HTH

**Siebenstein** · 10.10.2007, 16:36

Hallo Robert,

bitte wundere Dich nicht. Ich habe Urlaub und sitze deshalb so lange vor VB.

Mir macht das Programmieren einfach zu viel Spa�. Man kann es schon fast Leidenschaft nennen. Und bei solch netten hilfsbereiten Menschen wie in diesem Forum macht es noch mehr Spa�.

Deine Idee habe ich mal verfolgt und entsprechend umgeschrieben.
Ich kann meine Textbox ruhig mit der BindingSource laufen lassen.

Habe in Deinem Code eine Zeile eingef�gt:

Code:

Dim index As Integer = Me.BedienerBindingSource.Find("Bediener", TryCast(sender, TextBox).Text)
            If index <> -1 Then
                Me.Bediener.Undo()
                Me.BedienerBindingSource.Position = index
            End If

Mit der Zeile "Me.Bediner.Undo()" verhindere ich die Fehlermeldung, dass beim Springen in den gesuchten Datensatz das Feld des gerade aufgerufenen Datensatzes ge�ndert oder gar leer bleibt. (Prim�rschl�sselspalte/Not NULL)

Ist das eine gute L�sung????

Dies funktioniert allerdings nur bei bestehenden Datens�tzen. Wenn ich einen neuen Datensatz einf�ge (siehe Code oben) dann f�gt er den Datensatz ein, bleibt aber beim 1. Datensatz stehen. Dazu kommt, dass er den neuen Datensatz ja nicht hinten einsetzten soll sondern sofort richtig platzieren soll.

Kann ich den BindingNavigator in irgendeiner Weise neu laden, damit er die Neue Zeile in die Richtige Position bringt? Hast Du hierf�r auch eine Idee??? Oder muss ich sogar das Dataset neu validieren?

Gru� Laura

**robert.oh.** · 10.10.2007, 16:55

Hi Urlauberin

Das mit dem Undo() ist ein feine Sache - danke fuer den Tipp!

Die BindingSource hat eine Property 'Sort' welcher du die Sortierung uebergeben kannst, zB: '....Sort = "PKFeld DESC"'

Das komplette DataSet neu zu validieren waere - meiner Meinung nach zwar moeglich, aber unnoetig - kann ich mir nicht vorstellen.

Hilft dir das weiter?

**Siebenstein** · 10.10.2007, 18:24

Hey Robert,

wenn ich Dich nicht h�tte. Hast mir wirklich mal wieder sher geholfen. Danke Dir sehr daf�r.

Ich habe es jetzt folgenderma�en umgesetzt:

Bevor ich den neuen Datensatz anlege, habe ich den String (also meine Eingabe, die ich suche) in den Zwischenspeicher kopiert.

Anschlie�end lege ich den Datensatz neu an. Den Code f�r die Position habe ich dementsprechend ge�ndert, dass ich zum eben gespeicherten String springe, der ja nun inzwischen der Index meines neuen Datensatzes ist.

Hier einmal der Code:

Code:

    Private Sub BedienerTextBox_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bediener.Leave

        'Bediener suchen
        Dim Bediener As String = Me.Bediener.Text
        Dim aFindRow As DataRow = Me.BedienerTableAdapter.GetData.Rows.Find(Bediener)

        'Gesuchter Bediener nicht vorhanden
        If aFindRow Is Nothing Then

            'Meldung erzeugen
            Dim strMeldung As String
            strMeldung = "Der gesuchte Bediener ist nicht vorhanden? Wollen Sie Ihn jetzt anlegen?"
            Dim result As DialogResult = MessageBox.Show(strMeldung, _
            "Kein Datensatz vorhanden", _
            MessageBoxButtons.YesNo, _
            MessageBoxIcon.Question, _
            MessageBoxDefaultButton.Button2)

            'Result No
            If result = System.Windows.Forms.DialogResult.No Then

            Else
                'Result Yes
                result = System.Windows.Forms.DialogResult.Yes

                'String in Bediener Textfeld speichern um in den Datensatz springen zu k�nnen
                Dim Str As String = Me.Bediener.Text
                String.Copy(Str)
                'Passwort hashen
                Dim nwpass As String = Me.nwpass.Text
                Dim nhashsource As String = getMd5Hash(nwpass)

                ' Neuen Datensatz erzeugen
                Dim newBedienerRow As FMSDataSet.BedienerRow
                newBedienerRow = Me.FMSDataSet.Bediener.NewBedienerRow()
                newBedienerRow.Bediener = Me.Bediener.Text.ToString
                newBedienerRow.Passwort = nhashsource.ToString

                ' Datensatz anf�gen
                Me.FMSDataSet.Bediener.Rows.Add(newBedienerRow)


                ' Datensatz speichern
                Me.BedienerTableAdapter.Update(Me.FMSDataSet.Bediener)
                'MessageBox.Show("Der Bediener wurde erfolgreich angelegt", "Bediener " & Me.Bediener.Text, 0, MessageBoxIcon.Information)

                ' Datens�tze sortieren
                Me.BedienerBindingSource.Sort = "Bediener ASC"

                'Zum Datensatz springen und alle Felder aktualisieren "Str = Eingegebener Suchbegriff"
                Dim index As Integer = Me.BedienerBindingSource.Find("Bediener", Str)
                If index <> -1 Then
                    Me.BedienerBindingSource.Position = index
                End If


                End If
        Else
                'Gesuchter Bediener vorhanden
                'Zum Datensatz springen und alle Felder aktualisieren

                Dim index As Integer = Me.BedienerBindingSource.Find("Bediener", TryCast(sender, TextBox).Text)
                If index <> -1 Then
                    Me.Bediener.Undo()
                    Me.BedienerBindingSource.Position = index
                End If


        End If


    End Sub

Danke f�r die SUPER Hilfe.

Liebe Gr��e

Laura

**robert.oh.** · 10.10.2007, 18:58

Feine Sache!

Na dann steht einem gemuetlichen Urlaubs-Abend mit VB ja nix mehr im Wege

Announcement

Eilt: Datensatz Direkt aufrufen ???

Eilt: Datensatz Direkt aufrufen ???

Comment

Comment

Comment

Comment

Comment