程式码写add fields或delete fields |
尚未結案
|
luowy651
高階會員 發表:257 回覆:313 積分:114 註冊:2003-04-09 發送簡訊給我 |
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
引言: 各位高手: 比如说,我双击adoquery,就会出现 add fields或delete fields的画面,我想问一下,这个过程我用程式码该如何写(不知有没有delete all fields)?因为我的adoquery中会使用不同的query,所以对应的fields并非固定,而我又需要在其中设定displyformat为两位小数点,多谢!你可以用一下方法試一下: ADOQuery1.OPEN; (ADOQuery1.FIELDS[3] AS TFLOATFIELD).DisplayFormat := '0.00'; |
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |