{ 도움 될까 해서 간단한 예제 하나 적어 봅니다.
name type key
필드는 '날짜' D *
'수입' I
'지출' I
'잔액' I
입니다.
이렇게 하시면 될꺼에요
급하게 짜다보니 좀 엉성하네요
도움 되셨기를...
- 충청도에서 상식이 였습니다. - }
var
bm:TBookmark;
i,PreVal:integer;
begin
with Table1 do begin
bm := GetBookmark;
Refresh; // 날짜 순으로 정렬하려는게 주 목적
GotoBookmark(bm);
if RecNo <> 1 then // 현재 레코드가 처음이 아니면
Prior
else begin // 처음 이면
Edit;
FieldValues['잔액'] :=
FieldValues['수입'] - FieldValues['지출'];
end;
for i := RecNo to RecordCount-1 do begin
PreVal := FieldValues['잔액'];
Next;
Edit;
FieldValues['잔액'] := PreVal +
FieldValues['수입'] - FieldValues['지출'];
end;
GotoBookmark(bm);
FreeBookmark(bm);
end;
end;
|