有一个计算字段,类型是Float型,查询和打印的时候怎么控制小数点后面的位数?

Question

TField.OnGetText
在你那个字段的ongettext事件中，
type TFieldGetTextEvent = procedure(Sender: TField; var Text: String; DisplayText: Boolean) of object;
写要显示的text,用format进行格式画进行。

Answer 1

一个是:qrdbtext,这是关于打印的,有一个onprint事件
一个是:dbgrid,没有上面说的事件.

Answer 2

TCustomDBGrid.Fields
property Fields[Index: Integer]: TField;
TField.OnGetText
type TFieldGetTextEvent = procedure(Sender: TField; var Text: String; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;
怎会没这个属性？？你动态把你的处理程序，赋给这个OnGetText

Answer 3

query查询结果用dbgrid显示时，在查询中加入：
     for i:=0 to dm.Query1.FieldCount-1 do
       begin
         TNumericField(dm.Query1.Fields[i]).DisplayFormat:='0.00';
       end;在打印时，QRExpr的expression设置为 FORMATNUMERIC('0.00',query1.field)