我在做一个简单的查询功能，但总编译不成功，是什么原因，大家帮我看看
其中，a 是adodataset 的name, a的Datasource 是dm.person
编译时提示说， parameters.ParamByName('id').value:=dm.bm.fieldvalues['部门编号'];这里编译不对，怎么搞得，

--------
procedure Ttpersonform.SpeedButton1Click(Sender: TObject);
begin
a.close;
a.CommandText:='select * from 职工表 where 部门编号=:id';
parameters.ParamByName('id').value:=dm.bm.fieldvalues['部门编号'];
a.Open;
label7.Caption:='共'+inttostr(a.Recordcount) +'人';
end;
------
烦请告知怎么回事,
我后来改成
procedure Ttpersonform.SpeedButton1Click(Sender: TObject);
begin
a.close;
a.CommandText:='select * from 职工表 where 部门编号=:id';
dm.person.parameters.ParamByName('id').value:=dm.bm.fieldvalues['部门编号'];
a.Open;
label7.Caption:='共'+inttostr(a.Recordcount) +'人';
end;
编译通过了,但是在执行的时候,调用到该单元时说不能在循环调用一个表,好象是这个意思
各位高手 帮忙解决下!

我也想知道。

a.CommandText:='select * from 职工表 where 部门编号=:id';
这一行中，是不是有错误。部门编号=:id　　　就改为　　　部门编号：＝id