bobbydigital
Mitglied
Hallo,
ich habe eine Textdatei mit Datensätzen, die Felder sind mit Semikolon getrennt.
Diese Daten speicher ich mit einem Formular.
Jetzt möchte ich, wenn ich die 5. Zahl der Kundennummer eingebe, dass nach Datensätzen gesucht wird die diese KNR haben und diese in einer ListBox ausgegeben werden.
Bitte Helft mir!
Das ist mein Konstrukt bis jetzt, aber es t nicht.:
ich habe eine Textdatei mit Datensätzen, die Felder sind mit Semikolon getrennt.
Diese Daten speicher ich mit einem Formular.
Jetzt möchte ich, wenn ich die 5. Zahl der Kundennummer eingebe, dass nach Datensätzen gesucht wird die diese KNR haben und diese in einer ListBox ausgegeben werden.
Bitte Helft mir!
Das ist mein Konstrukt bis jetzt, aber es t nicht.:
Code:
Private Sub txt_knr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_knr.TextChanged
cmdsave.Enabled = True
Dim x As Integer
Dim aSuch As String
ListBox1.Items.Clear()
If Len(txt_knr.Text) = 5 Then
For x = 1 To UBound(strDaten)
aSuch = txt_knr.Text
If InStr(1, txt_knr.Text, aSuch, vbTextCompare) Then
ListBox1.Items.Add(strDaten(x, 1) & " - " & strDaten(x, 2) & " - " & strDaten(x, 3) & " - " & strDaten(x, 4) & " - " & strDaten(x, 5))
End If
Next
End If
End Sub