【搞定】将query中的数据赋给代理数据集出错**

zql

我声明了一个过程,具体如下:调用时出错,错误提示见图
procedure SetDataSetValue(DataSet:TDataSet;Query2:TQuery);

procedure TXGPG.SetDataSetValue(DataSet:TDataSet;Query2:TQuery);
var lFieldName:String;
    I:Integer;
begin
  DataSet.Open;
  DataSet.EmptyDataSet;
  Query2.Open;
  Query2.First;
  while not Query2.Eof do
  begin
  DataSet.Open;
  DataSet.Append;
   for I:= 0 to Query2.FieldCount-1 do
   begin
     lFieldName := Query2.Fields[I].FieldName;
     DataSet.FieldByName(lFieldName).AsVariant:=Query2.FieldByName(lFieldName).AsVariant;
   end;
   DataSet.Post;
   Query2.Next;
  end;
  DataSet.First;
end;

atiger

楼主，设置断点跟踪一下，看看执行哪句出错，变量或者参数对吗？

zql

DataSet.Open;
这句就停了,不明白原因……
编译没问题，运行时候出的错

yancm

你DataSet的结构和Query的结构一样吗？
]根据代码判断错误可能是没有
DataSet.FieldByName(lFieldName) 这个地址存在。你调试跟一下，看报错前这个变量是什么？

atiger

DataSet 这是啥，数据集ID？数据代理ID？

把DataSet换个名字，

yancm

这段代码里面有两句DataSet.Open;
楼主你在报错停的代码上设一下断点，看执行前的变量有没有为nil的

zql

不好意思，我问题没说太清楚
我在是窗体中放一个名为datasetbroker1的数据集代理的，直接用的上面那个过程。我这样用对不？？dataset不是数据集ID，也不是数据代理ID，只是一个参数

zql

zql

回复4楼的，DataSet.FieldByName(lFieldName) 这个地址存在
这边并没有错，我用另一个过程把query2的数据读出来了，也是用这种方式读的

yancm

请回答一下6楼的问题。