在delphi中我用dbchart中的饼形图显示的为什么是一条直线
我的代码如下procedureTF_table.Button2Click(Sender:TObject);vars:real;beginwithadoquery2dobe...
我的代码如下
procedure TF_table.Button2Click(Sender: TObject);
var
s:real;
begin
with adoquery2 do
begin
close;
sql.clear;
sql.add('select commonname,val(DMAF) as i from 日粮修改表 where formula = '''+trim(combobox11.text)+'''');
open;
s:=adoquery2.recordcount;
panel1.Caption:=format('%10.4f',[s]);
end;
dbchart2.Series[0].XLabelssource:='commonname';
dbchart2.series[0].YValues.valuesource:='i';
dbchart2.series[0].DataSource:=adoquery2;
end;
请问这是原因。 展开
procedure TF_table.Button2Click(Sender: TObject);
var
s:real;
begin
with adoquery2 do
begin
close;
sql.clear;
sql.add('select commonname,val(DMAF) as i from 日粮修改表 where formula = '''+trim(combobox11.text)+'''');
open;
s:=adoquery2.recordcount;
panel1.Caption:=format('%10.4f',[s]);
end;
dbchart2.Series[0].XLabelssource:='commonname';
dbchart2.series[0].YValues.valuesource:='i';
dbchart2.series[0].DataSource:=adoquery2;
end;
请问这是原因。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询