Filter på DBliste

Hej.

Jeg ved ikke hvad du mener med en DBListe.

Dine data skal være i et array, som du kan løbe igennem for hvert tegn du tilføjer eller sletter.  Eksemplet er fra en database over fugle.  http://jkfsoft.dk/fugle.htm.

Private Sub txtsogart_Change()
  lstart.Clear
  mslyd.filename = ""
  For n = 0 To UBound(art)
      If InStr(LCase(art(n, 1)), LCase(txtsogart.Text)) > 0 Then
        lstart.AddItem art(n, 1) & "    " & n
      End If
  Next n
  labartant.Caption = lstart.ListCount
  If chkauto.Value = 1 Then
      If lstart.ListCount = 1 Then
          lstart.ListIndex = 0
          lstart_Click
      End If
  End If
End Sub

Eksemplet indeholder noget kildetekst, der ikke er påkrævet for grund-funktionen, løbenummeret n tilføjes fordi listen er alfabetisk sorteret, og n bruges så til at finde øvrige data på fuglen (aktuelt latinsk navn, engelsk navn og EU-ringnr.)

M.v.h. Jørn

Det er en Database liste, Altså en liste, men en der viser felter fra en Database !!
Så et array bliver ikke brugt....

Det kommer fra "Microsoft Data Bound List Controls 6.0" i Components, og heder "DBlist"

Hej.

Data fra  "Microsoft Data Bound List Controls 6.0" kan vel også indlæses i et array?

M.v.h. Jørn

lukket