B
BaKuBaKu
Unregistered / Unconfirmed
GUEST, unregistred user!
象这样的程序我一般用循环生成字符串。比如:
var S: string;
begin
for ... do S := ',''' + Value + '''';
Delete(S,1,1); S := '('+S+')';
Query.SQL.Add('Select * From ... Where ... In ' + S);
end;
var S: string;
begin
for ... do S := ',''' + Value + '''';
Delete(S,1,1); S := '('+S+')';
Query.SQL.Add('Select * From ... Where ... In ' + S);
end;