怎样使用过滤器？(20分)

G

guanyanan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #1

table控件中的fliter属性在运行过程中，应如赋值？请举例说明，谢谢

 

D

dongliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #2

str:=tjue.fieldbyname('dh').asstring;
str:='ljbh='''+str+'''';
tcz.Filter:=str;;//给LJBH赋值,其值由STR提供
tcz.Filtered:=true;

 

D

dongliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #3

LJBH为字段名

 

G

guanyanan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #4

str:='ljbh='''+str+''''引号正确吗？

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #5

you could also use OnFielterRecord event

 

G

guanyanan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #6

能否详细分析一下“引号”的用法，实在是搞不懂。

 

D

dongliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-15

• #7

str:=tjue.fieldbyname('dh').asstring;
//因为STR的类型为STRING, 所以假设str='文学'时,
str:='ljbh='''+str+'''';//STR='ljbh=''文学'''
tcz.Filter:=str;;//FILTER:='ljbh=''文学''';
tcz.Filtered:=true;
也许这样的解决办法有点笨,但我只能做到这种程度,请原谅

 

X

xiaowind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #8

delphi 中是用两个连续的单引号来代替字串中的单引号
如：
filter := 'fieldname1=''aaa'' and fieldname2=''bbb''';

 

N

nickname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #9

如果在字符串中包含'的话,用两个连续的'',不是双引号".
因此showmessage('''asdf''')和showmessage(''''+'asdf'+'''')
是一样的,请自己体会吧

 

C

crescent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #10

filter串中不能包含双引号
使filter生效,执行filtered:=True;
计算字段不能在filter中使用.
例如table:users(usercode char(10),username char(20))
you can:
table1.tablename:='users';
table1.open;
table1.filter:='''张三''';
table1.fitlered:=true;
that's ok

 

W

wangduao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #11

不知道·！

 

B

bluebird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #12

在Table 的OnFilterRecord事件中写程序
返回ACCEPT是一个条件等/不等式(BOOLEAN),
ACCEPT　:= DATASET[FIELD1] > DATASET[FIELD2]+50
关于你的问题

//示例如下：后面有注释！

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filtered := True;
Table1.Active := not Table1.Active;
end;

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := table1.FieldValues['SaleDate']>self.DateTimePicker1.Date;//用DateTimePicker返回的日期(Tdatetime)
//accept为 Boolean 类型
end;
//一定先要把Table1的Filtered属性改为True
end.

我是在D4下用demos 中的ORDERS.DB试的，绝对没有问题

 

B

bluebird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #13

用OnfilterRecord时不要设Filter属性

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #14

两个单引号表示一个单引号,在字符串条件中，字符必须用引号括起来

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #15

多人接受答案了。