【搞定】计算余额**

zhjkill

if m=1 then
     begin
          for i := 0 to DataSetBroker2.DataSet.RecordCount-1 do
          begin
               if  DataSetBroker2.DataSet.FieldByName('XHGG').isnull then
               begin
                    lQuery.ConnectionString :='DATABASEURL=Biz:HGOPERATIONHGOPERATIONDB.DATABASE';
                    lQuery.CommandText := 'SELECT JC,CSZ From XHPMXB Where  XHDL = :a ';
                    lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery.Open;

                    lQuery1.ConnectionString :='DATABASEURL=Biz:HGOPERATIONHGOPERATIONDB.DATABASE';
                    lQuery1.CommandText := 'SELECT Sum(SJLYSL),Sum(RKSL) From XHP Where  HCDL = :a ';
                    lQuery1.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery1.Open;

                    j:=lQuery.FieldByName('CSZ').AsInteger+lQuery1.Fields[1].AsInteger-lQuery1.Fields[0].AsInteger;
                    lQuery.CommandText := 'update XHPMXB set JC=:j Where  XHDL = :a ';
                    lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery.Params.ParamByName('j').AsInteger := j;
                    lQuery.Execute;
                    lQuery.ApplyUpdates;
               end
               else
               begin
                    lQuery.ConnectionString :='DATABASEURL=Biz:HGOPERATIONHGOPERATIONDB.DATABASE';
                    lQuery.CommandText := 'SELECT JC,CSZ From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b';
                    lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
                    lQuery.Open;

                    lQuery1.ConnectionString :='DATABASEURL=Biz:HGOPERATIONHGOPERATIONDB.DATABASE';
                    lQuery1.CommandText := 'SELECT Sum(SJLYSL),Sum(RKSL) From XHP Where '+' HCDL = :a '+' and XHGG = :b';
                    lQuery1.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery1.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
                    lQuery1.Open;

                    j:=lQuery.FieldByName('CSZ').AsInteger+lQuery1.Fields[1].AsInteger-lQuery1.Fields[0].AsInteger;
                    lQuery.CommandText := 'update XHPMXB set JC=:j Where '+' XHDL = :a '+' and XHGG = :b';
                    lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
                    lQuery.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
                    lQuery.Params.ParamByName('j').AsInteger := j;
                    lQuery.Execute;
                    lQuery.ApplyUpdates;
               end;

               DataSetBroker2.DataSet.Next;
               lQuery.Close;
               lQuery1.Close
          end;

zhjkill

如图，只修改了序号3的库存余额的值，其它的序号1和2的没有修改。是什么原因？
帮我看下我的代码问题在那

zhjkill

问题错误找到了
先前把DataSetBroker2运行到最后条
结了吧