如何在DBGRID里,把货币型的字段显示出来?显示成前面有“¥”的~~高手进~ 请注意:我的ADOQUERY的SQL语句是在运行是执行的,怎么用语句 让我的ADOQUERY的那个货币字段的Currency:=true---------在设计期间,点那个字段,就有这个属性啊,但我的SQL语句在设计期间不能运行的,所以ADOQUERY在设计时是关闭的,没法做!但要用程序做就不知道怎么做了----------------------各位帮忙我说得够清楚了吧?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果设计时ADOQUERY可以OPEN的话就可以用 adoquery1dsdesigner111.currency:=true;但我设计期不能OPEN的所以没这属性 adoquery1.FieldByName('111'). 后面没这些属性了 好办,可以自己在程序中处理!procedure TFm_Main.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin DefaultDrawColumnCell(Rect, DataCol, Column, State); if Column.fieldname='111' then begin Canvas.TextOut(Rect.Left + 2, Rect.Top + 2,'¥:'+adoDataset.fieldbyname('111').asstring);end;end; 在ADOQueryCalcFields(DataSet: TDataSet);事件里面写var value: double; ts: string;begin value := ADOQueryDSDesigner11.Value;//query里的字段对应的名字 ts := FloatToStr(value); ADOQueryField.Value := '¥' + ts;end; 正常要在 Dataset對應字段的 OnGetText 中處理, 用 format 格式化成貨幣格式就可 使用CxGrid自动就会加,可以在DBGRID中设置Display格式 正常要在 Dataset對應字段的 OnGetText 中處理, 用 format 格式化成貨幣格式就可-----------------------怎么处理? 同一条记录取两次 有北京的男程序员吗? 这句源码错在哪里了? 检查ODBC数据源问题? WebBrowser中比较棘手的问题(自动登录),请各位指点,一定高分 如何把JPEG等转换为PDF格式的? 一个程序员应该有的素质(讨论)希望大家参与! Delphi怎么连接SQL Server 关于DBGrid问题 高分相赠!!!在线等待~~~ 给mudeen(笑哥哥)的 哪位高手帮帮我 求助,dbgrid的简单问题。。
ADOQUERY可以OPEN的话
就可以用
adoquery1dsdesigner111.currency:=true;但我设计期不能OPEN的
所以没这属性
可以自己在程序中处理!procedure TFm_Main.DBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
DefaultDrawColumnCell(Rect, DataCol, Column, State);
if Column.fieldname='111' then
begin
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2,'¥:'+adoDataset.fieldbyname('111').asstring);
end;
end;
var
value: double;
ts: string;
begin
value := ADOQueryDSDesigner11.Value;//query里的字段对应的名字
ts := FloatToStr(value);
ADOQueryField.Value := '¥' + ts;
end;
怎么处理?