TDBAdvGrid显示十进制数字

Question

我有mysql表和DBAdvGrid，

mysql列的十进制数显示为950,450,555.45 我希望在点后总是显示2位数。像950.00

我尝试了数据集'AfterOpen'的事件

TFloatField（MyDs.FieldByName（'Price'））。DisplayFormat：='0.00';

但没有帮助

任何帮助都会表示赞赏。

Answer 1

你可以尝试（直接使用数据集）
适用于mysql和Zeos

(MyDs.FieldByName('Price') as TFloatField).DisplayFormat := '#####0.00';

得到你想要的东西。

更多信息请点击此处。

Delphi's Database Architecture

更新

关于测试

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.Open;
end;

procedure TForm1.ZQuery1AfterOpen(DataSet: TDataSet);
begin
if CheckBox1.Checked then
(ZQuery1.FieldByName('gebuehr') as
    TFloatField).DisplayFormat := '#####0.00';
end;

字段gebuehr Transl。（gebuehr ==费用）

没有AfterOpen

使用AfterOpen