TQuery组件怎样进行这种Filter?(100分)

T

touchme_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #1

对TQuery的结果集进行Filter,过滤出某一字段的长度为4的记录.
正常语法是:
Query1.Filter := 'Field = Value';
Query1.Filtered := true;

但query1.Filter:='len(Field)=4';却不行。那么该怎么写?求教。

 

T

thtfsyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #2

filter没法对len()进行解释，
你可以直接写在sql中吗。

 

Q

qiu_peking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-25

• #3

filter不可能作到这一点，只能通过SQL语句解决了

 

T

touchme_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #4

看来，delphi在这方面比不如PB。

 

D

driver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #5

太夸张了吧，动不动就拿PB和DELPHI比一比。
其实很简单，写到OnFilterRecord中不就行了吗？

 

T

touchme_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #6

driver:怎么写，举个例子好吗？求教。

 

D

driver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #7

Query1的OnFilterRecord事件这么写

procedure TForm1.Query1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
with DataSet do begin
if Length(FieldByName('XXXX').AsString)=4 then
Accept:=True
else
Accept:=False;
end;
end;

 

T

touchme_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #8

是不是Query1.Filtered := true;会调这个事件？求教。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #9

接受答案了.