<div>
does your dbgrid have persistent columns?
</div>


does your dbgrid have persistent columns?

<div>
If look in dbgrid column editor there is no columns...
</div>


If look in dbgrid column editor there is no columns...

<div>
I've answered this question.
</div>


<div>
yep, geo answered this q and deserves the points
</div>


yep, geo answered this q and deserves the points

<div>
<div class="content wysiwyg-content">
on form i have two buttons, dbgrid and dbchart<br />
<br />
on button press:<br />
<br />
procedure TForm1.Button1Click(Sender<wbr />: TObject);<br />
begin<br />
Series1.YValues.ValueSourc<wbr />e := '';<br />
AdoQuery1.Fields.Clear;<br />
AdoQuery1.SQL.Clear;<br />
AdoQuery1.SQL.Add('select krupje, laikas, sum(viso) from chipsai where laikas &gt;&nbsp;'+QuotedStr(DatetoStr(Date<wbr />TimePicker<wbr />1.Date - 1))+' group by krupje order by laikas');<br />
AdoQuery1.Open;<br />
AdoQuery1.FieldDefList.Upd<wbr />ate;<br />
Series1.YValues.ValueSourc<wbr />e := 'sum(viso)';<br />
end;<br />
<br />
procedure TForm1.Button2Click(Sender<wbr />: TObject);<br />
begin<br />
Series1.YValues.ValueSourc<wbr />e := '';<br />
AdoQuery1.Fields.Clear;<br />
AdoQuery1.SQL.Clear;<br />
AdoQuery1.SQL.Add('select krupje, laikas, sum(skirtumas) from chipsai where laikas &gt;&nbsp;'+QuotedStr(DatetoStr(Date<wbr />TimePicker<wbr />1.Date - 1))+' group by krupje order by laikas');<br />
AdoQuery1.Open;<br />
AdoQuery1.FieldDefList.Upd<wbr />ate;<br />
Series1.YValues.ValueSourc<wbr />e := 'sum(skirtumas)';<br />
end;<br />
<br />
if i press one button all works fine, but if i press after any button i got error:<br />
AdoQuery1: Field '' not found.<br />
if there is no dbgrid all works fine too<br />
How to fix it?
</div>
</div>


on form i have two buttons, dbgrid and dbchart

on button press:

procedure TForm1.Button1Click(Sender: TObject);
begin
Series1.YValues.ValueSource := '';
AdoQuery1.Fields.Clear;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select krupje, laikas, sum(viso) from chipsai where laikas > '+QuotedStr(DatetoStr(DateTimePicker1.Date - 1))+' group by krupje order by laikas');
AdoQuery1.Open;
AdoQuery1.FieldDefList.Update;
Series1.YValues.ValueSource := 'sum(viso)';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Series1.YValues.ValueSource := '';
AdoQuery1.Fields.Clear;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select krupje, laikas, sum(skirtumas) from chipsai where laikas > '+QuotedStr(DatetoStr(DateTimePicker1.Date - 1))+' group by krupje order by laikas');
AdoQuery1.Open;
AdoQuery1.FieldDefList.Update;
Series1.YValues.ValueSource := 'sum(skirtumas)';
end;

if i press one button all works fine, but if i press after any button i got error:
AdoQuery1: Field '' not found.
if there is no dbgrid all works fine too
How to fix it?

problem with query

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.