請問各位~    目前我的畫面上有個DBGrid~ 當使用者直接在DBGrid修改下圖這兩個紅色框框時~ 我希望可以控管使用者所填入的值一律為兩個數字(字串型態)~ 如使用者填入如4時~不論畫面或者存入值需為[04] 請問我該在那裡去作設定呢~    謝謝~

請參考Fishman大文章 http://delphi.ktop.com.tw/topic.php?topic_id=43708    

Hi meta~ 謝謝您~ 終於有個方向~ 但是我依然有兩個問題~ (1)以下~如何是字串型態~ format該如何去設定~ Text:= formatfloat('0.00',query1.fieldbyname('sale_num').AsInteger); (2)Fishman 所提供的方法~ 此段~就你要的欄位設定 Display Format 為 0.00 因為我只找到EditMark~ 定義~ 00;1;_ 好像也是不行的~ 我那裡有設錯嗎~ 謝謝~

//參考Fishman大文章.. http://delphi.ktop.com.tw/topic.php?topic_id=43708 「不過先決條件是該欄位 type 為數字(Integer,Float,Word...皆可)」.. 因為欄位格式不同，所以無法使用..    //這是自己試的，D7下ok!

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  AdoDataSet1.Edit;
  if Field.DisplayName='test' then
    if (Length(Field.Text)<2) and(Field.Text<>'') then
    begin
      Field.Text:='0' Field.Text;
      AdoDataSet1.Post;
    end;
end;

//應該有更好的方法..再想想.研究一下..

Hi All,    Sorry !! 插一下花    假設該欄位型態為 String 則可以這樣：    1. uses StrUtils 然後在該 Field 的 OnGetText Event 加入以下程式碼    procedure TForm1.ClientDataSet1sGetText(Sender: TField; var Text: String;   DisplayText: Boolean); begin   Text := RightStr('00' + TField(Sender).AsString,2); end;    2. 設定該欄位的 EditMask 為 00;1;_(EditMask 僅對 TStringField 有用，TFloatField、TIntegerField 等數字型態欄位並無該項設定) ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

//thx to Fishman大.. 1.方法ok. 2.好像不能在第一個位置補'0'哩..(欄位型態=TWideStringField)    // 1.填入的值一律為兩個數字 設該Fields.size=2 2.存入DB部分要自己改寫一下才會正確存入     //多多指教..多多指教

Hi Fishman /meta~    謝謝你們所提供方法~最後我是利用ADOQuery2DSDesigner7GetText處理    procedure TForm1.ADOQuery2DSDesigner7GetText(Sender: TField;   var Text: String; DisplayText: Boolean); begin   if ADOQuery2.Eof <> true then   begin     Text := formatfloat('00',Strtoint(Trim(ADOQuery2.fieldbyname('充填起始番號').AsString))); end; end; 但是奇怪吶~為什麼修改某一記錄時~ 卻要修改資料結束時~ 指標再指至下一筆才可以真正在存入值的動作呢~ 謝謝你們~ 麻煩大家

Hi t0288542,

DataSet 特性即是如此，方可減少不斷更新資料庫問題，否則同一筆資料10個欄位，輸入時豈不是得更新10次？    若有必要可於 DBGrid 的 OnColExit 事件加入一些程式碼自行 Post    procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if TDBGrid(Sender).DataSource.DataSet.State in [dsInsert,dsEdit] then
    TDBGrid(Sender).DataSource.DataSet.Post;
end;

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

------
Fishman

謝謝~ meta和Fishman幫忙~ ^_______^