with Common_CDS do
begin
Active := true; 《----- 这里已经True了
EmptyDataSet;
CommandText := sql;
Params.ParamByName('ID').AsString := ID;
Open; 〈----- 这里再OPEN，有用吗? 试试 先Close再Open看看。