Delphi的数据库过滤问题(50分)

轻

轻松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #1

目标：构造出table1.filter的值为 cCusCode='CADS'
已知：Edit1.text的值为CADS

我用 table1.filter:='cCusCode="'+Edit1.text+'"';
得出table1.filter的值为 cCusCode="CADS"，如何表达，才能将'表达出来？

 

D

dopro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #2

table1.filter:='cCusCode=/''+Edit1.text+'/'';

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #3

table1.filter:='cCusCode='''+Edit1.text+'''';

 

轻

轻松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #4

[Error] data_customer.pas(86): Unterminated string
不行，编译不通过。

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #5

哪个没通过？table1.filter:='cCusCode='''+Edit1.text+'''';
应该通过的呀

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #6

把ADOTable1的Filter属性设为true
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
accept:=ADOTable1['cCusCode']=Edit1.Text;
end;

 

轻

轻松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #7

多谢各位了,接受雪中漫步的答复，多谢。

 

轻

轻松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #8

真是对不起，分配分时，记得已分配好了，可能第一项单选点错了，搞错了。

大家有什么办法吗，我想将分配给你们的分重给，有办法吗？