在fastreport如何打印数据集字段的text属性值，而不打印Value. ( 积分: 100 )

rt.
比如我有一个于report关联的数据集dataset1 ,其中有字段field1.其值可能为a,b,c..（数据库中存储的值），但为了显示的直观性，我在该字段的gettext事件中改变了显示。
if field.value = 'a' then
text := 'aaa'...
现在在dbgrid中显示的是'aaa'了但打印的时候却是'a'.请问我如何才能打印出'aaa'.

肯定if field.value = 'a'条件不满足的嘛！
加一个if trim(field.value) = 'a' then
text:='aaaaaa'
还有一点，你换一个事件中写,这个事件是取值，应该写在SetText中去！

谢谢楼上的回复。你可能没理解到我的问题，我在grid中已经显示出'aaa'了，也就是已经改变了text的值，但打印的时候却是'a'，所以我想知道在fastreport中要打印字段的Text.而不是value应该如何做.

frReport1.LoadFromFile(ExtractFilePath(application.ExeName) +'Frf/Xskd.frf');
//frReport1.FindObject('Memo5').Memo.Text := '打印时间：'+formatdatetime('yyyy-mm-dd hh:mm:ss',date());
frReport1.findobject('Memo1').Memo.Text := User^.ShopName+'销售出库单';
frReport1.FindObject('Memo2').Memo.Text := '购货单位：'+qryMas.fieldbyname('客户简称').AsString;
frReport1.FindObject('Memo3').Memo.Text := '库房：'+dblkcbb5.Text;
frReport1.FindObject('Memo4').Memo.Text := '结算方式：'+dblkcbb2.Text;
frReport1.FindObject('Memo14').Memo.Text := '地址：青岛市辽宁路228号电子信息城科信大厦1510室';
frReport1.FindObject('Memo17').Memo.Text := '说明：'+qryMas.fieldbyname('备注').AsString;
frReport1.FindObject('Memo20').Memo.Text := '合计金额：'+qryMas.fieldbyname('合计金额').AsString;
frReport1.FindObject('Memo21').Memo.Text := '业务员：'+dblkcbb1.Text;
frReport1.FindObject('Memo23').Memo.Text := '收款期限：'+qryMas.fieldbyname('收款期限').AsString;
frReport1.ShowReport;

谁有第三方控件FRDBGRID的下载地址

终于解决了，原来我的字段类型是wibestring,换成string就ok了。谢谢大家的参与。

多人接受答案了。