这段代码，为什么一运行就死呀

[zhhh]

with adoquery1 do
begin
close;
sql.clear;
sql.text := 'select top 10 id,price,city,sj from stat where city=''北京'' and sbec=''1.0''';
open;
while not eof do
begin
dbchart1.Series[0].AddXY(fieldbyname(sj).asdatetime,fieldbyname('price').asfloat)
end;
end;
其中sj是字符型，代表时间,格式:2005-05-01

[cdsgajxlp]

up

[fengzhengren]

进入死循环了，下面的语句应该加上next
while not eof do
begin
dbchart1.Series[0].AddXY(fieldbyname(sj).asdatetime,fieldbyname('price').asfloat)
next;
end;

[zhptj]

再有一句
先得first
然后再循环
别忘了next

[zhhh]

上面的问题决解了，另外，生成的图片如何保存下来

[zhaoyongjie]

想保存到什么地方啊

[zhousan]

if SavePictureDialog1.Execute then
DBChart1.SaveToBitmapFile(SavePictureDialog1.FileName)

[zhhh]

直接存到数据库，如何写？

[eqapple]

用Assign就行了!

[才子鸣]

next;
你一直都是在第一条循环...

程序跟本没往下走...所以要加了next;