Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dataset Dataview & Co.
Autor: Quincy
Datum: 01.03.04 18:57
Meine Textfelder sind ans Dataset gebunden zwecks Update usw. Das Grid ist für Filterzwwecke ans Datview gebunden. Stell ich nun mal im Übersichtsformular (nur Views) fest, dass ich mich verschrieben habe, ist der entsprechende Titel in der Eingabe zwar sehr schnell rausgefiltert, aber die Textfelder müsste ich durchklicken, um dort eine Korrektur zu machen. Nun hab ich folgende Erfindung gemacht Ich filtere per Kürzel den verschriebenen Titel heraus, klicke ihn im Grid an und übertrage ins Textfeld9 (ungebunden)die ID. In Textfeld8 stehen die Datasetgebundenen IDs. Nun läuft folgende Vergleichsopereation:   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If CInt(TextBox8.Text) < CInt(TextBox9.Text) Then Me.BindingContext(DataSet11, "TRACKS").Position = (Me.BindingContext(DataSet11, "TRACKS").Position + 100) End If If CInt(TextBox9.Text) < CInt(TextBox8.Text) Then Timer1.Enabled = False : Timer2.Enabled = True Synchron() End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If CInt(TextBox9.Text) < CInt(TextBox8.Text) Then Me.BindingContext(DataSet11, "TRACKS").Position = (Me.BindingContext(DataSet11, "TRACKS").Position - 1) Me.Dataset11_PositionChanged() Synchron() If CInt(TextBox8.Text) = CInt(TextBox9.Text) Then Timer2.Enabled = False End Sub Dann habe ich meine korrekturbedürftigen Titel in der Texbox. Bei 5.000 Datensätzen und dem Interval1 geht das verhälnismäßig schnell. Für sehr große Bestände sicherlich ungeeignet. Die MSDN gibt nun folgendes her:   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim MeineTabelle As DataTable MeineTabelle = DataSet11.TRACKS Dim n As String = TextBox9.Text Dim rowFoundRow As DataRow = MeineTabelle.Rows.Find(n) If Not (rowFoundRow Is Nothing) Then MessageBox.Show(CType(rowFoundRow(0), String)) Else MessageBox.Show("Der Primärschlüssel " & _ n & " konnte nicht gefunden werden") End If End Sub Damit kriege ich zwar meinen Titel in ner MsgBox mitgeteilt bin aber genau so schlau, wie vorher. Weiß jemand ne intelligentere Methode, im Dataset zu suchen? Wie immer freue ich mich über jede Antwort! Quincy Schreibe von einem ab, dann ist das Plagiat - schreibe von zweien ab, dann ist das Forschung!

Dataset Dataview & Co.	845	Quincy	01.03.04 18:57
Re: Dataset Dataview & Co.	456	WaldiMaywood	01.03.04 19:13
Re: Dataset Dataview & Co.	446	Quincy	01.03.04 20:00
Re: Dataset Dataview & Co.	449	WaldiMaywood	01.03.04 20:14
Re: Dataset Dataview & Co.	458	Quincy	01.03.04 20:42
Re: Dataset Dataview & Co.	432	DaveS	01.03.04 20:59
Re: Dataset Dataview & Co.	442	Quincy	01.03.04 21:12
Re: Dataset Dataview & Co.	449	DaveS	02.03.04 10:21
Re: Dataset Dataview & Co.	449	Quincy	02.03.04 14:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen