در ساخت گزارش با FastReportايجاد ستونهايي كه با SQL نمي توانند ساخته شوند

[rezamahdizadeh]

با FastReport يك گزارش مي خواهم توليد كنم كه يكي از ستونهاي آن از يك فيلد عددي پر مي شود و ستون ديگري بايد داشته باشد كه مجموع تمام مقادير ستون گفته شده را تا اين رديف نشان دهد مثال
مبلغ جمع تاكنون
-----------------------------------------------------------------------
4500 4500
7500 12000
3250 15250

[Mohammad_Mnt]

این کد را در رویداد OnBeforePrint "مانده حساب" بنویسید (بر اساس گزارشتون باید تغییرش بدید) و از متغیر tmpLeft توی همین ستون استفاده کنید.


var
tmpDebtor, tmpCreditor, tmpLeft : Extended;
//--------------------------------------------------------------
procedure myMemoOnBeforePrint(Sender: TfrxComponent);
begin
if (engine.FinalPass) then begin
tmpDebtor := tmpDebtor + <frxDBDataSet."debtor">;
tmpCreditor := tmpCreditor + <frxDBDataSet."creditor">;
tmpLeft := tmpCreditor - tmpDebtor;
end;
end;
//--------------------------------------------------------------
procedure GroupHeaderOnBeforePrint(Sender: TfrxComponent);
begin
tmpDebtor := 0;
tmpCreditor := 0;
tmpLeft := 0;
end;

begin
tmpDebtor := 0;
tmpCreditor := 0;
tmpLeft := 0;
end.