【搞定】先Select-Open 再 Append应该插入两条数据，但是只插入一条数据**

zwjcooldd

with LaobaoFFQuery do
       begin
         CommandText:='select * from LBPFFB where FFBJ=1 and ZTBZ=0';
         Open;
         while not Eof do
         begin
             {（1）对每条记录，从中查出一些字段，来做为下面Append的值}
              v1:=LaobaoFFQuery.FieldByName('SCFFRQ').AsDateTime; // 上次发放日期
             。。。。
             {（2）添加数据记录}
              Append; //添加数据
              FieldByName('GUID').AsString := JSCommon.CreateGUIDStr;
              FieldByName('ZG').AsString:=ZG;
             。。。。

               Next;
          end; //  while not Eof do
            ApplyUpdates;  //LaobaoFFQuery.ApplyUpdate
          end;//   with LaobaoFFQuery do   begin
            finally
              LaobaoFFQuery.Free;
           end;  //Try

以上的问题是：本来查询语句应该查询出两条数据，同时向数据库中插入两条数据，现在只插入了一条。怎么回事啊？

atiger

append 后要执行post，即在next前post一下

zwjcooldd

是不是因为，比如查询2条记录，在循环第一次时候，我没有post，而append后，TQuery指针指向了第3条，也就是我刚刚插入的那条记录。然后next就是第4条了，而原想它应该定位到第2条的。你说说是不是这样？说说为什么得先Post一下

zwjcooldd

try
        with LaobaoFFQuery do
       begin
         CommandText:='select * from LBPFFB where FFBJ=1 and ZTBZ=0';
         Open;
         while not Eof do
         begin
              v1:=LaobaoFFQuery.FieldByName('SCFFRQ').AsDateTime; // 上次发放日期

             if(FieldByName('ZTRQ').IsNull) then
              v2:=0.0
             else
              v2:=FieldByName('ZTRQ').AsDateTime; //暂停日期

             if (FieldByName('QYRQ').IsNull) then
              v3:=0.0
             else
              v3:=FieldByName('QYRQ').AsDateTime;  //启用日期

           。。。
              GZ:=FieldByName('GZ').AsString;
               Append; //添加数据
        FieldByName('GUID').AsString := JSCommon.CreateGUIDStr;
                                     。。。
              FieldByName('GZ').AsString:= GZ ;
              Post;
             Next;

            end; //  while not Eof do
             end;//   with LaobaoFFQuery do   begin
           LaobaoFFQuery.ApplyUpdates;
            finally
              LaobaoFFQuery.Free;
                   end;  //Try
      end;//procedure

zwjcooldd

、

zwjcooldd

现在还是1条记录

atiger

请问你原先用啥开发的？

你这样的操作不能在一个数据集上，在一个数据集循环，又要新增数据，
你应该用两个数据集来做，一个数据集来做循环，然后像另一个数据集来插入数据。

zwjcooldd

呵呵，好的！ok