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; { with } end;
打印报表的列标题
最新推荐文章于 2024-01-20 11:07:19 发布