请教！！！

Question

for　ｉ：＝０　ｔｏ　８　ｄｏ
ｂｅｇｉｎ
Query2.Active:=false;
Query2.SQL.Clear;
Query2.SQL.Text:='select A，B，C FROM DDD WHERE A=字符串（变化的数组，有具体的值）'；
Query2.Active:=true;
ｅｎｄ；
我想把循环的查询结果在DBGrid中显示出来，可以吗？

Answer 1

为什么要连续打开数据集呢？
要想显示到DBGRID中，只需数据源绑定就可以了！

Answer 2

Query2.Active:=false;
Query2.SQL.Clear;
for　ｉ：＝０　ｔｏ　８　ｄｏ
ｂｅｇｉｎ
Query2.SQL.Text:='select A，B，C FROM DDD WHERE A=字符串（变化的数组，有具体的值）'；
ｅｎｄ；
Query2.Active:=true;

Answer 3

Query2.Active:=false;
Query2.SQL.Clear;
Query2.SQL.Text:='select A，B，C FROM DDD WHERE (a='+''''+字符串[0]+''''+')';
for　ｉ：＝1　ｔｏ　８　ｄｏ
ｂｅｇｉｎ
Query2.SQL.add('OR (A='+''''+字符串[i]+''''+')')；
ｅｎｄ；
Query2.Active:=true;-_-!

Answer 4

你的方法不行
这样var
  S: string;
  I: Integer;
begin
  for I := 0 to 8 do S := ',' + QuotedStr(数组[I]);
  if Length(S) = 0 then Exit;  Query2.Close;
  Query2.SQL.Text := 'select A，B，C FROM DDD WHERE A IN (' + S + ')'；
  Query2.Open;
end;

Answer 5

漏了一句var
  S: string;
  I: Integer;
begin
  for I := 0 to 8 do S := ',' + QuotedStr(数组[I]);
  if Length(S) = 0 then Exit;  Delete(S, 1, 1);
  Query2.Close;
  Query2.SQL.Text := 'select A，B，C FROM DDD WHERE A IN (' + S + ')'；
  Query2.Open;
end;