with DataModule1.DataSource1.DataSet do
begin
if(Active=true)and(Not IsEmpty)then
begin
Filtered := False;
Filter := 'NAME=' + Trim(Edit1.Text);
Filtered := True;
if IsEmpty then ShowMessage('没有找到数据')
else
begin
ShowMessage('找到数据');
end;
end;
end;只能输入数字,不能输入字母,我用的是ORACLE9,字母就出错
QQ120547173
begin
if(Active=true)and(Not IsEmpty)then
begin
Filtered := False;
Filter := 'NAME=' + Trim(Edit1.Text);
Filtered := True;
if IsEmpty then ShowMessage('没有找到数据')
else
begin
ShowMessage('找到数据');
end;
end;
end;只能输入数字,不能输入字母,我用的是ORACLE9,字母就出错
QQ120547173
'NAME=''' + Trim(Edit1.Text)+'''';
Filter := 'NAME=' + Trim(Edit1.Text);
改为:
Filter := 'NAME=' + QuotedStr(Trim(Edit1.Text));