Subject | Re: [IBO] Refreshing a IBODataset |
---|---|
Author | Jason Wharton |
Post date | 2002-01-21T20:19:10Z |
You haven't told us where the AV is.
I think your packages might not be compiled correctly.
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com
I think your packages might not be compiled correctly.
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com
----- Original Message -----
From: "Luiz Alves" <cprmlao@...>
To: <IBObjects@yahoogroups.com>
Sent: Monday, January 21, 2002 1:17 PM
Subject: Re: [IBO] Refreshing a IBODataset
> ----- Original Message -----
> From: "Jason Wharton" <jwharton@...>
>
>
> > You should be able to do what you are trying to do.
> > If you showed us the code it might help.
>
> I have a TEdit where I trap the Return Key to do a Refresh as:
>
> procedure TfrmCadConvPlan.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if key=#13 then begin
> qroConv.InvalidateSQL;
> qroConv.Refresh;
> end
> end;
>
> procedure TfrmCadConvPlan.qroConvPrepareSQL(Sender: TObject);
> begin
> if trim(Edit1.Text)<>'' then begin
> case qroConv.OrderingItemNo of
> 1:
>
qroConv.SQLWhereItems.add('convenio.nconv='+inttostr(strtointdef(Edit1.Text,
> -999)));
> 2: qroConv.SQLWhereItems.add('convenio.nome CONTAINING
> '+quotedstr(Edit1.Text));
> end;
> end;
> end;
>
> Thanks,
> Luiz.