急,小问题,求解决方法,关于过滤数据库(20分)

  • 主题发起人 主题发起人 blave
  • 开始时间 开始时间
B

blave

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Trcpy.Edit10Change(Sender: TObject);
begin
with table3 do //以拼音简码过滤数据库
begin
if edit10.text='' then
begin
filtered:=false;
filteroptions:=[focaseinsensitive]; //设置非大小写敏感
filter:='pinyin='''+edit10.Text+'*'+''''; //设置过滤条件
filtered:=true; // 使过滤条件有效
end;
end;
end;
当我设置edit10.text:=''的时候,dbgrid中什么也没有显示了
记得用delphi5这样使用的时候,当文本框为空的时候,显示全部记录
这是怎么回事,哪位能告诉我怎么处理当edit10为空的时候体现全部记录
另外:filter:='pinyin='''+edit10.Text+'*'+''''; //设置过滤条件
如果里面不加*号,只能在文本框里的值和表里的值一样的时候才能显示出数据库中的记录
这好像和D5也不一样
 
好像是一样的把?
Edit10为空时,就把filtered设为false就可以显示全部了
还有亚,你那个条件可以这样写
filter:='pinyin='+QuotedStr(Edit10.Text);
呵呵,少写了好多引号,并且这样还不会出现引号的错误
具体帮助看Delphi help
 
谢谢老大,帮了大忙了
再帮看看这个问题
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1226091
 
后退
顶部