各位高手： 比如说，我双击adoquery，就会出现 add fields或delete fields的画面，我想问一下，这个过程我用程式码该如何写（不知有没有delete all fields）？因为我的adoquery中会使用不同的query,所以对应的fields并非固定，而我又需要在其中设定displyformat为两位小数点，多谢！

引言: 各位高手： 比如说，我双击adoquery，就会出现 add fields或delete fields的画面，我想问一下，这个过程我用程式码该如何写（不知有没有delete all fields）？因为我的adoquery中会使用不同的query,所以对应的fields并非固定，而我又需要在其中设定displyformat为两位小数点，多谢！

你可以用一下方法試一下： ADOQuery1.OPEN; (ADOQuery1.FIELDS[3] AS TFLOATFIELD).DisplayFormat := '0.00';

Hi luowy651,    抱歉！插一下花，也可以在該 ADOQuery 的 AfterOpen 事件上針對 TBCDField 設定其 DisplayFormat，不需去 ADD or Delete Field

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  i : integer;
begin
  for i := 0 to DataSet.FieldCount - 1 do
    begin
      if DataSet.FieldList.Fields[i].ClassNameIs('TBCDField') then
        TBCDField(DataSet.FieldList.Fields[i]).DisplayFormat := '0.00';
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman