var
Report: TfrReport;
t: TfrMemoView;
i: Integer;
begin
t := TfrMemoView(Form5.frReport1.FindObject('Memo1'));
if t <> nil then
t.Memo.Text :='采购入库单';
.....
Report: TfrReport;
t: TfrMemoView;
i: Integer;
begin
t := TfrMemoView(Form5.frReport1.FindObject('Memo1'));
if t <> nil then
t.Memo.Text :='采购入库单';
.....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货