var
  i:integer;
begin
  showmessage(dxdbtreeview1.DBSelected.KeyFieldValue);
  i:=dxdbtreeview1.DBSelected.KeyFieldValue;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select * from laowu where groupid=i';
  adoquery1.open;
end;把 adoquery1.SQL.Text:='select * from laowu where groupid=i';
改为adoquery1.sql.text:='select * form laowu where groupid=1'就正常。