修改一下楼上的:
procedure TCX_BDQXForm.ADOQueryCGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.AsInteger >100 then
Text:=''
else Text := Sender.AsString
end;
在ONGETTEXT 事件中写
procedure TCX_BDQXForm.OraQrySLSBGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.AsInteger >100 then
text:='';
end;
end;