请问我这样写有什么错误吗,运行时候提示"Invalid parameter"?

[emailqjc]

try
ADOQuery1.Active:=True;
ADOQuery2.Active:=True;
if ADOQuery1.Active and (self.ADOQuery1.RecordCount>0) and ADOQuery2.Active and (self.ADOQuery2.RecordCount>0) then
begin
for i:=0 to ADOQuery2.Fields.Count-1 do
begin
with self.ClientDataSet1.FieldDefs.AddFieldDef do
begin
Name:=adoquery2.Fields[i].FieldName;
DataType:=adoquery2.Fields[i].DataType;
Size:=adoquery2.Fields[i].Size;
end;
end;
ClientDataSet1.CreateDataSet;
ClientDataSet1.Open;
ClientDataSet1.EmptyDataSet;
for k:=0 to adoquery2.RecordCount -1 do
begin
ClientDataSet1.Append;
for i:=0 to adoquery2.FieldCount-1 do
begin
DBGrid1.Columns[i].Field.Value:=IntToStr(i);
ClientDataSet1.Fields[i].Value:=adoquery2.Fields[i].Value;
end;
end;
ClientDataSet1.First;
end;
finally

end;

[emailqjc]

各路高人,请赐教,为什么执行到ClientDataSet1.CreateDataSet时候提示Invalid parameter?

[emailqjc]

?????????怎么没人回答呢

[emailqjc]

问题已经解决了,

[ABLE__323]

会不会没有指定database

[emailqjc]

我指定了database的,我纳闷的是同样的写法在另一工程里能正常的执行

[emailqjc]

各路高人,请赐教,为什么执行到ClientDataSet1.CreateDataSet时候提示Invalid parameter?

[c372662316]

怎么解决的啊，我也出现了这个问题！

[zhlmxh]

怎么解决的，真是的，也不说声