資料庫使用Access由於資料表中的欄位使用到日期欄位， 但使用者會輸入非法的格式如民國年，94/3/18 希望能檢查，讓使用者只能輸入2005/3/18 該採取怎樣的作法呢？ 目前我採用如下的作法，並自己撰寫了檢查日期的函數， 不過仍然無法避免程式的意外中斷，如使用者在欄位中輸入'=' 等非法字元，不知道是否有類似其他語言的Mask可以使用 避免輸入時，程式意外結束！ procedure TFRM_ONO.ADOTable1BeforePost(DataSet: TDataSet); begin inherited; if ChkIsValidDate(self.DBGrid1.Columns[0].Field.Value)=falsethen begin self.DBGrid1.Columns[0].Field.Value := ''; end; end;

用 Try    Except   end 把你寫的程式包起來,這樣程式就不會中斷 Date欄位本身程式就會檢查他的正確性 不過像是你說的94/3/18到是無法檢查 建議你用Field的OnValidate Event做檢查 不要等到要Post才一併檢查....      星期一,星期二...星期日..星期一..無窮迴圈@@

------
星期一,二...無窮迴圈＠＠

您好﹗    假設日期欄位為DBGrid中的第四順位﹐在DBGrid元件的OnKeyPress事件中鎖定只允許使用輸入0~9的數字鍵﹐'/'鍵﹐后退鍵﹐有些像Mask的作用﹕

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (DBGrid1.SelectedIndex = 3) and (Key Not In ['0'..'9','/',#8]) then
    begin
      Key := #0;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟