由标循环计算纪录值，请高手帮忙！

Question

declare @a decimal(6,2)
declare @b decimal(6,2)
declare @qc decimal(6,2)
declare @rev decimal(6,2)
declare @send decimal(6,2)
declare @bal decimal(6,2)
declare @flag int
declare youbiao scroll cursor
for
  select qc,rev,send,bal from a  
For Update Of bal,qc    
  open youbiao
FETCH NEXT FROM youbiao INTO @qc,@rev,@send,@bal
set @flag=0
WHILE @@FETCH_STATUS=0
BEGIN
  if @flag=0
  begin
    set @flag=1
  end else
  begin
    update a set qc=@a
    where current of youbiao
  end
  update a
      set bal=qc+rev-send,
          @a=qc+@rev-@send
  where current of youbiao
  FETCH NEXT FROM youbiao INTO @qc,@rev,@send,@bal
END
CLOSE youbiao
DEALLOCATE youbiao