Next메소드가 빠졌군요..
repeat
iTemp1:= frmExam022.Table1.FieldByName('투입금액').AsInteger;
iTemp2:= iTemp2 + iTemp1;
iTemp3:= frmExam022.Table1.FieldByName('추정완성액').AsInteger;
iTemp4:= iTemp4 + iTemp3;
frmExam022.Table1.Next: <--- 이것을 넣어주세요..
Until frmExam022.Table1.EOF ;
From 류..
|