CXGRID导出数据，在OnGetDisplayText里添加的内容显示不出来，求解

Bugdet是预算 数据库里是money，
我在CXGRID里的该列的OnGetDisplayText事件里写了，  AText := AText + '万';
但导出EXCEL后“万”字却没了。EXCEL里的字段属性也是货币。于是我SQL语句里CAST(pg.Bugdet AS VARCHAR(10)) Bugdet
导出EXCEL后EXCEL里的字段属性是文本了，但是“万”还是没显示出来。请问怎么显示出“万”字啊？