三层结构，client 端用 clientdataset1 -->Datasource1--> DBGrideh1 显示数据表，然后动态创建一个 clientdataset：tempCDS，并用tempCDS从另一个表 query 数据并动态给第四列加入 picklist和 keylist，实现了该列的下拉只选列表，但是点选下拉值后，并clientdataset1.applyupdate(0)时，总是出现 “ora-00904: invalid column name” 的错误。为什么啊？高手帮忙啊？
我是通过给 CDS 的 beforegetrecords 事件里的 ownerdata := VarArrayOf([SQLStr, Null]); 来给该 ClientDataSet1 和 tempCDS 赋 SQL的值。我发现如果 tempCDS 不连接 DB，ClientDataSet1.applyupdate 是没有问题的。tempCDS 一连接以后，ClientDataSet1.applyupdate(0); 就出错了。怎么避免啊？我在 DBGridEh 网格的editbuttondown 里面创建的 tempCDS，需要动态添加不同的 picklist 和 keylist。必须这样做啊。怎么办？
//下面是在 EditButtonDown 里动态添加 picklist 和 keylist 的代码：
......
tempCDS := TClientDataSet.Create(self);
tempCDS.RemoteServer := ClientDataSet1.RemoteServer;
tempCDS.ProviderName := ClientDataSet1.ProviderName ;
tempCDS.packetRecords := -1;
tempCDS.fetchOnDemand := False;
tempCDS.beforegetrecords := cdsbeforegetrecords;
SQLStr := 'select * from status';
tempCDS.Open ;
DBGridEh1.Columns[3].AlwaysShowEditButton := True;
DBGridEh1.Columns[3].KeyList.Clear;
DBGridEh1.Columns[3].PickList.Clear;
tempCDS.First ;
while not tempCDS.Eof do
begin
DBGridEh1.Columns[3].KeyList.Add(tempCDS.Fields[0].AsString);
DBGridEh1.Columns[3].PickList.Add(tempCDS.Fields[1].AsString);
tempCDS.Next ;
end;
tempCDS.Close ;
tempCDS.Free ;
......
//下面是beforegetrecords events
procedure TForm1.cdsbeforegetrecords(Sender : TObject; var OwnerData : OleVariant);
var LastValue : OleVariant;
begin
LastValue := Null;
ownerdata := VarArrayOf([SQLStr, LastValue ]);
end;
//下面是一开始打开 DBGridEh 连接的 ClientDataSet1 的过程：
procedure TForm1.ShowBtnClick(sender : TObject);
begin
ClientDataSet1.beforegetrecords := cdsbeforegetrecords;
SQLStr := 'select * from PInfo';
ClientDataSet1.open;
end;
......
高人救命啊！！！急用。帮帮我这个无助的人吧！！！
