OnFilterRecord/Filter(100分)

S

shricom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #1

I want to print some record suitable to some conditions with
QuickRep Control.I use Paradox,According to HELP,Filter can not
be used.
I write a OnFilterRecord Event handle, but it doesnot work.

Source:

In Form1 ( T_Person:TTable):
CompanyName is defined as a public variable.
Procedure T_PersonFilterRecord(Dataset;Accept);
begin
Accept:= (T_Person.FieldByName('company').Asstring = CompanyName);
end

In Form2:
Form1.T_Person.Filtered := True;
Form1.CompanyName := CoName; // CoName defined in Form2
Form1.T_Person.Refresh;

Please help me!

 

L

liwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #2

try this:

In Form2:
Form1.T_Person.Filtered := True;
Form1.CompanyName := CoName; // CoName defined in Form2
Form1.T_Person.close;
Form1.T_Person.open;

 

S

shricom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #3

Hi,Liwei

Thanks a lot!

But it still don't work! It seems that you can earn my 100 points!

Sorry!

Shricom

 

李

李颖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #4

Try this:


.....Filtered:=False;
.....CompanyName:='xxxx';
.....Filtered:=True;

 

X

xixi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #5

with T_Person do
begin
Filtered := False;
Filter := 'COMPANY = ''健力宝''';
Filtered := True;
Refresh; //Maybe needn't
end;

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #6

Form1.T_Person.Filtered := True;
Form1.CompanyName := CoName; // CoName defined in Form1.T_Person.Filtered := false;
Form1.T_Person.Filtered := True;

 

S

shricom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #7

Hi,all

Thanks a lot!

But I tried it,still not work!

Could you give me some examples?

Shricom

 

S

shricom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #8

I am sorry, xixi

Now I tried your way, it do work. but I don't know how to write a variable

in Filter!

Thanks

 

S

shricom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-16

• #9

多人接受答案了。