字段 'Invoice_Date' 不能修改

Question

我有以下的MS Access 2003表：

Invoice_Master 
(
    Invoice_Id Autonumber, 
    Customer_Id integer, 
    Invoice_Date Date/Time not null, 
. 
. 
. 
); 

和下面的代碼（德爾福7）

procedure TfmInvoiceMaster.adoMasterEditNewRecord(DataSet: TDataSet); 
begin 
    inherited; 
    adoMasterEditInvoice_Date.AsDateTime := Date; 
end; 

當我嘗試添加新記錄我結束有例外錯誤sys：

Field'Invoice_Date'can not be modified。

請

Answer 1

你做錯了什麼是錯的。 :)

您應該使用AfterEdit事件。從TDataSet.AfterEdit幫助文件：

寫一個AfterEdit事件處理程序，採取具體行動數據集進入編輯模式之後。 AfterEdit在編輯記錄後被調用，重新計算計算的字段，並調用數據事件處理程序來處理記錄更改。

使用這樣的：

procedure TfmInvoiceMaster.adoMasterAfterEdit(DataSet: TDataSet); 
begin 
    // No inherited call! This is an event handler, not an overridden method 
    adoMasterEditInvoice_Date.AsDateTime := Date; 
end; 

從你的文字，不過，你似乎想這樣做時，插入一條記錄，不能編輯（「當我嘗試添加新記錄我結束了異常錯誤sys：「）。如果是這種情況，請使用AfterInsert，方法相同：

procedure TfmInvoiceMaster.adoMasterAfterInsert(DataSet: TDataSet); 
begin 
    // No inherited call! This is an event handler, not an overridden method 
    adoMasterEditInvoice_Date.AsDateTime := Date; 
end;