如何在DBGRID显示字段的时候显示人民币符号'¥'?

dance_code 2003-06-03 12:07:27
RT
...全文
131 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
dance_code 2003-06-12
  • 打赏
  • 举报
回复
thanks a lot :)
AWolfBoy 2003-06-03
  • 打赏
  • 举报
回复
可以在你要现示人民币符号'¥'的那个字段的OnGetText事件实现就可以了
以下是我一个对日期字段进行格式化的代码
其中FieldGetText就是OnGetText的实现了(因为我是用在查询里面)。
ADOQuery1.FieldByName('myfield').OnGetText := FieldGetText;

procedure TForm1.FieldGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if ((Sender As TField).DataType = ftDateTime)
and (Sender.Value <> Null) then
Text := FormatDatetime('yyyy-mm-dd hh:nn', (Sender As TField).AsDateTime)
else Text := Sender.AsString;
end;
bbs791109 2003-06-03
  • 打赏
  • 举报
回复
在TABLE的字段屬性設置為﹕
table1.fields[i].DisplayFormat:=¥0.00
jeff 2003-06-03
  • 打赏
  • 举报
回复
那有这么麻烦啊。直接设置属性。
如果你使用Table,双击Table控件,使用鼠标右键,添加所有字段,然后选择要显示的字段(整数类型或者浮点类型),设置该字段的DisplayFormat为0.00¥就可以了。Query也类似,如果是动态的话,自己写代码吧。在Table.Open后写:Table.Fields[].DisplayFormat:=????就可以了。
才20分,呜呜,我好可怜。都5点了,好饿。

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧