류님 답변 고마워요.  저두 그건 알겠는데 도무지 그런경우가 아니거덩요.

다음 소스를 좀 봐주실수 있을지요?

부탁합니다....................... 바우였어요.


procedure Tmonth.data_reset;
  var ss,s1,s2,s3:string; ii:integer;
      sum:array[1..31] of integer;
  begin
    s1:=edit1.Text;
    while length(s1)<4 do s1:='0'+s1;
    s2:=edit2.Text;
    while length(s2)<2 do s2:='0'+s2;
    ss:=s1+'-'+s2;
    table1.Active:=false;
    table1.BatchMove(table4,batcopy);

    table1.open;
    table1.Insert;
    table1['name']:='합계';
    table1['code']:='';
    for ii:=1 to 31 do sum[ii]:= 0;

    table3.open;
    table3.last;
    table1.DisableControls;
    while not table3.BOF do
      begin
        table1.First;
        table1.Insert;
        table1['name']:=table3['name'];
        table1['code']:=table3['code'];
        for ii:=1 to 31 do
          begin
            s3:=inttostr(ii);
            while length(s3)<2 do s3:='0'+s3;
            table1[s3]:= ilil_income(s1,s2,s3,table1['code']);
            sum[ii]:=sum[ii]+table1[s3];
          end;

        table3.Prior;
      end;

    table1.Locate('name','합계',[]);

    table1.Edit;
    for ii:=1 to 31 do
      begin
        s3:=inttostr(ii);
        while length(s3)<2 do s3:='0'+s3;
        table1[s3]:= sum[ii];
      end;

    table1.EnableControls;
    table1.close;
    table3.close;

    table1.Active:=true;
  end;