Toon posts:

Delphi 5 - Filters op een tabel

Pagina: 1
Acties:

Verwijderd

Topicstarter
Weet iemand wat ik fout doe?
Ik heb namelijk een table in een dbmodule geplaats. Hierop wil ik een aantal filters toepassen. Deze filters definieer ik in een form.
vb.
Form:

gNummer := EditNummer.text;
gNaam := EditNaam.text;
gPlaats := EditPlaats.text;
gX := X.text;
etc.

Onfilterreccord in dbmodule:

if gNummer <> '' then
Accept := Table['Nummer'] = gnummer;
if gplaats<> '' then
Accept := Table['Plaats'] = gnummer;
if gNaam <> '' then
Accept := Table['Naam'] = gnummer;
if gX <> '' then
Accept := Table['X'] = gnummer;

Dit gaat goed tot en met 4 filters! :'(
Wie kan mij uitleggen waarom het programma er na vier filters een potje van maakt?

Alvast bedankt
Peter

Verwijderd

Waarom gebruik je niet gewoon het Filter property en Filtered=True?

/Edit:
Bovendien zou ik je code als volgt doen:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  gNummer := EditNummer.text;
  gNaam := EditNaam.text;
  gPlaats := EditPlaats.text;
  gX := X.text;
  etc.

  Onfilterreccord in dbmodule:

  if Trim(gNummer) <> '' then
    Accept := Table['Nummer'] = gNummer;
  if Trim(gPlaats) <> '' then
    Accept := Accept and (Table['Plaats'] = gPlaats);
  if Trim(gNaam) <> '' then
    Accept := Accept and (Table['Naam'] = gNaam);
  if Trim(gX) <> '' then
    Accept := Accept and (Table['X'] = gX);

  • whoami
  • Registratie: December 2000
  • Laatst online: 06:24
TTables? En dan nog met filters? bwah... Waarom gebruik je geen TQuery?

https://fgheysels.github.io/


Verwijderd

Op vrijdag 18 januari 2002 11:43 schreef whoami het volgende:
TTables? En dan nog met filters? bwah... Waarom gebruik je geen TQuery?
Is hier not de issue. Is al een ander draadje over. Maar je hebt idd. gelijk.