procedure treportform.onnewcolumnreport2(sender: tobject);caption:string;
begin
with sender as tbasereport do
begin
underline := true;
case i of //其中i為integer型別的全域性變數
1:caption := '姓名';
2:caption := '年齡';
3:caption := '性別';
4:caption := '部門';
5:caption := '職務';
else
caption := ''備註;
end;
println(caption);
underline := false;
end;
end;
列印報表的列標題
procedure treportform.onnewcolumnreport2 sender tobject caption string begin with sender as tbasereport do begin underline true case i of 其中i為integer型...
列印報表的腳注
procedure treportform.printfooterreport2 sender tobject begin with sender as tbasereport do begin setfont times new roman 8 呼叫tbasereport元件的setfont方法設...
PB 提取動態交叉報表動態標題名和動態列值
提取動態交叉報表動態標題名和動態列值 string ls str,ls str1,ls name,ls name text,ls text long ll cnt,ll cnttmp,i,ll row dwobject ldwo environment env getenvironment env ...