请问如何将Memo的内容复制到报表中?谢谢
请问如何将Memo中的内容复制到报表中。要实现这个传递要用什么控件。用QRMemo可以不可以。就是把Memo的内容往QRMemo里面传。谢谢了!!!
[解决办法]
//下面代码可以用于说明如何在代码中给报表元素付值
frReport1.FindObject( 'YanSe2 ').Memo.Text := ys2;//copy(yanse,3,2);
frReport1.FindObject( 'YanSe3 ').Memo.Text := ys3;//copy(yanse,5,2);
frReport1.FindObject( 'PicOne ').FillColor :=PicColor(ys1{copy(yanse,1,2)}) ;
frReport1.FindObject( 'PicTwo ').FillColor :=PicColor(ys2{copy(yanse,3,2)}) ;
frReport1.FindObject( 'PicThree ').FillColor :=PicColor(ys3{copy(yanse,5,2)}) ;
frReport1.FindObject( 'ZuoMoJu ').Memo.Text :=cbZmh.Text ;
frReport1.FindObject( 'YouMoJu ').Memo.Text :=cbYmh.Text ;
frReport1.FindObject( 'GangYin ').Memo.Text :=Trim(EdtGangyin.Text);
frReport1.FindObject( 'LTiaoMa ').Memo.Text := '00 '+LMaterialCode ;
frReport1.FindObject( 'RTiaoMa ').Memo.Text := '00 '+RMaterialCode ;
frReport1.FindObject( 'LGuiGe ').Memo.Text := cbLSpec.Text+ '( '+cbLLayer.Text+ ') '+cbLTexture.Text+cbLBrand.Text ;
frReport1.FindObject( 'RGuiGe ').Memo.Text := cbRSpec.Text+ '( '+cbRLayer.Text+ ') '+cbRTexture.Text+cbRBrand.Text ;
// frReport1.FindObject( 'HuaWen ').Memo.Text := ComboBox3.Text+ '- '+ComboBox4.Text ;
frReport1.PrepareReport;//由于准备报表
frReport1.ShowReport;//用于显示报表
//你可以在Delphi代码中计算好,然后付值显示
例如:
var
Adays:TDateTime;
ADays := ADOQuery1.FieldByName( 'Birthday ').AsDatetime + 2;
frReport1.FindObject( 'RGuiGe ').Memo.Text := DateTimeToStr(ADays);
//上一行代码中 'RGuiGe '为要付值的Memo的名称
[解决办法]
设计报表的时候你点中了一个组件以后,你按F11会跳出属性栏,然后你可以在属性栏里面设置报表组件的属性,然后调用frReport1.FindObject( '组件名 ').Memo.Text := 函数返回值这样的语句给他付值了。其他的付值语句也类似,只不过报表里面用的组件不同罢了