//a[i]中存储了一些字符串,从数据库中找到field2等于a[i]的纪录,sum它的sl列,
str:='';
for i:=1 to 5 do
begin
adoquery3.Parameters.AddParameter;
adoquery3.Parameters[i-1].Name:='a'+inttostr(i);
adoquery3.Parameters[i-1].Value:=a[i];
str:=str+',sum(iif('+fdstr1+'=:a'+inttostr(i)+',sl,)) as ['+a[i]+']';
end;
str:='select '+field1+str+' from tem2 group by......';
adoquery3.SQL.Clear;
adoquery3.SQL.Add(str);
adoquery3.ExecSQL;
//程序运行报错,说parameter错误,哪儿错了呢?
str:='';
for i:=1 to 5 do
begin
adoquery3.Parameters.AddParameter;
adoquery3.Parameters[i-1].Name:='a'+inttostr(i);
adoquery3.Parameters[i-1].Value:=a[i];
str:=str+',sum(iif('+fdstr1+'=:a'+inttostr(i)+',sl,)) as ['+a[i]+']';
end;
str:='select '+field1+str+' from tem2 group by......';
adoquery3.SQL.Clear;
adoquery3.SQL.Add(str);
adoquery3.ExecSQL;
//程序运行报错,说parameter错误,哪儿错了呢?
begin
str:=str+',sum(iif('+fdstr1+'=:a'+inttostr(i)+',sl,)) as ['+a[i]+']';
end;
str:='select '+fdstr2+',sum(sl) as 合计'+str+' into tem3 from tem2 group by '+fdstr2; for i:=1 to k do
begin
adoquery3.Parameters.AddParameter;
adoquery3.Parameters[i-1].Name:='a'+inttostr(i);
adoquery3.Parameters[i-1].Value:=a[i];
end;
adoquery3.Parameters.(...).DataType:=ftString;