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'就正常。
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'就正常。
i:integer;
adoquery1.SQL.Text:='select * from laowu where groupid=i';
编辑过了吗?
adoquery1.SQL.Text := 'select * from laowu where groupid=isnull('+StrToInt(i)+',0)';