【结】[请求]2个问题求助！**

零下三度

有如下代码，实现的功能为选中一条数据后点击按钮自动添加一条相似数据。
var
   lsql:string;
   qryUpdate: TQuery;
   id:string;
begin
  qryUpdate := TQuery.Create(self);
  try
    id:= IntToStr(PARAMS.TPARAMS.Create(Context).GetNewPK('XSCJGL'));
    qryUpdate.ConnectionString := 'DATABASEURL=Biz:\OPERATION\OperationDB.Database';
    lSql := 'insert into XSCJGL select '+id+' as fid,XH,XM,ZY,0-CJ as FCJ,XK,RXSJ from XSCJGL';
    qryUpdate.CommandText := lSql;
    qryUpdate.Execute;
  finally
    qryUpdate.Free;
  end;
end;
问题1：当数据集中只有一条数据时，可以生成数据，当数据集中有两条以上数据时会报“违反主键唯一性错误”，可以肯定id每次的值都不同，GetNewPK方法写在业务字典中。
问题2：每次退出时报错“对象必须在环境之前释放”，id这个对象怎么释放？

lixy

问题2可能是这个 PARAMS.TPARAMS.Create(Context)  搞的 你把他单独的创建释放，不要嵌套到里面。
问题1.描述不够清楚

零下三度

问题1：
当执行到Execute的时候就会报错“违反primary key唯一性”，id是主键。GetNewPK是主键自增函数，GetNewPK函数肯定没有错。

lixy

你做一个简单点的例子，把资源发上来吧。

零下三度

算了。结贴吧！

lixy

难道楼主不想搞明白为什么吗？怎么结贴了？我觉得你说的挺奇怪的，发个资源我重现一下。

零下三度

好，主要是挺麻烦说不清楚。

运行的时候提示我违反“主键唯一性”

lixy

把这个例子资源导出来，如果大于2m，切成2个包。发上来我试试

零下三度

============

零下三度

===========