RT
解决方案 »
- 一个2层管理系统,多人操作保存单据经常长生串号,重号情况。
- 一个讨厌的调试错误。求高手解决下
- 用fastreport的frxPreview控件预览报表时,出现发生下列的错误:List index out of bounds (-1)Stack overflow
- dock的使用方法
- 关于E文的问题
- 初级问题
- 简单问题,在线待~~~~~~~~~~~~~~
- QRStringsBand 用法,ITEM 谢谢,马上给分
- 怎樣使database與qurey關聯,實現事務處理
- 如何利用Query控件查询出数据后,把数据删除?数据可能有多条。
- 大家来拿高分!!!!!!!!!!
- 请教如何用delphi写屏保,给个例子先
以下是我一个对日期字段进行格式化的代码
其中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;
如果你使用Table,双击Table控件,使用鼠标右键,添加所有字段,然后选择要显示的字段(整数类型或者浮点类型),设置该字段的DisplayFormat为0.00¥就可以了。Query也类似,如果是动态的话,自己写代码吧。在Table.Open后写:Table.Fields[].DisplayFormat:=????就可以了。
才20分,呜呜,我好可怜。都5点了,好饿。
table1.fields[i].DisplayFormat:=¥0.00