如附件檔所示
在dbGrid 新增一筆資料時，在TTable的OnCalcFields有判斷
IF Tbprdsir.Active = False THEN
Tbprdsir.Active := True;
key in 資料key到某欄位時，卻出現dataset not in edit or insert mode
@@ 一直找不出原因，請各位大大指點
謝謝

------
Aki..就算沒有明天

附加檔案：4a0d00fe7781e_debug.JPG

database1.connect:=false;
table1.edit

这2行有没有写。另外，DBGRID里面的READONLY属性有没有改为：false啊？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

這個錯誤訊息, 
應該trace就可以找出錯誤所在,
一般而言, 是錯在類似 DataSet.FieldByName('FiledName').asString:= 'xxx'
但是並沒有DataSet.Insert 或DataSet.Edit

或者在OnCalcFields
對實體欄位給值, 就會產生錯誤!!

編輯記錄

max5020大大
沒錯，就是錯在類似 DataSet.FieldByName('FiledName').asString:= 'xxx'
但是我加了DataSet.Insert 或DataSet.Edit後，反而會出現錯誤
如果同時，在別的地方也有dataset.inert或datset.edit 是否也會引發錯誤?

------
Aki..就算沒有明天

在OnCalcFields,
只能針對CalcFileds給值,
而且, 並不需要DataSet.Edit;
因為OnCalcFields,是任一欄位的值有更改時,
就會執行OnCalcFields的程序,
當然不能用DataSet.Edit, DataSet.Insert之類的!!

編輯記錄

DBGrid其它欄位都可以輸入，唯獨某一欄位不行@@
單步執行後仍然找不出原因所在

------
Aki..就算沒有明天

不妨將妳的OnCalcFields事件的Code全部POST上來研究看看

procedure TDataModule1.TbprdsirCalcFields(DataSet: TDataSet);
var Vwgt,Vwgt1,Vwgt2,Vwgt3,Vwgt4,Vwgt5 : real;
xarea : array[1..5] of Real;
w,h1,h2 : real;
WT,HT1,HT2:string;
I,X : integer;
begin
IF TbBase.Active = False THEN
TbBase.Active := True;
IF Tbprdsir.Active = False THEN
Tbprdsir.Active := True;
IF Tbprdfigs.Active = False THEN
Tbprdfigs.Active := True;
Vwgt := 0; Vwgt1 := 0; Vwgt2 := 0; Vwgt3 := 0; Vwgt4 := 0; Vwgt5 := 0;
IF (Tbprdsir.FieldByName('area1').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub1').asstring]),[loCaseInsensitive]) then
Vwgt1 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area1').asfloat;
IF (Tbprdsir.FieldByName('area2').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub2').asstring]),[loCaseInsensitive]) then
Vwgt2 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area2').asfloat;
IF (Tbprdsir.FieldByName('area3').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub3').asstring]),[loCaseInsensitive]) then
Vwgt3 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area3').asfloat;
IF (Tbprdsir.FieldByName('area4').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub4').asstring]),[loCaseInsensitive]) then
Vwgt4 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area4').asfloat;
IF (Tbprdsir.FieldByName('area5').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub5').asstring]),[loCaseInsensitive]) then
Vwgt5 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area5').asfloat;
Vwgt := Rounda(Vwgt1 Vwgt2 Vwgt3 Vwgt4 Vwgt5);
if Vwgt > 0 THEN
BEGIN
Tbprdsir.FieldByname('uwgt').asfloat := Vwgt;
Tbprdsir.FieldByname('per1').asfloat := Roundb(Vwgt1/Vwgt);
Tbprdsir.FieldByname('per2').asfloat := Roundb(Vwgt2/Vwgt);
Tbprdsir.FieldByname('per3').asfloat := Roundb(Vwgt3/Vwgt);
Tbprdsir.FieldByname('per4').asfloat := Roundb(Vwgt4/Vwgt);
END;
end;

------
Aki..就算沒有明天

===================引 用 chi120 文 章===================
procedure TDataModule1.TbprdsirCalcFields(DataSet: TDataSet);
var Vwgt,Vwgt1,Vwgt2,Vwgt3,Vwgt4,Vwgt5 : real;
xarea : array[1..5] of Real;
w,h1,h2 : real;
WT,HT1,HT2:string;
I,X : integer;
begin
IF TbBase.Active = False THEN
TbBase.Active := True;
IF Tbprdsir.Active = False THEN
Tbprdsir.Active := True;
IF Tbprdfigs.Active = False THEN
Tbprdfigs.Active := True;
Vwgt := 0; Vwgt1 := 0; Vwgt2 := 0; Vwgt3 := 0; Vwgt4 := 0; Vwgt5 := 0;
IF (Tbprdsir.FieldByName('area1').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub1').asstring]),[loCaseInsensitive]) then
Vwgt1 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area1').asfloat;
IF (Tbprdsir.FieldByName('area2').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub2').asstring]),[loCaseInsensitive]) then
Vwgt2 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area2').asfloat;
IF (Tbprdsir.FieldByName('area3').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub3').asstring]),[loCaseInsensitive]) then
Vwgt3 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area3').asfloat;
IF (Tbprdsir.FieldByName('area4').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub4').asstring]),[loCaseInsensitive]) then
Vwgt4 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area4').asfloat;
IF (Tbprdsir.FieldByName('area5').asstring <> '') THEN
if TbBase.Locate('factory;rubno',VarArrayOF([Tbprdsir.FieldByname('factory').asstring,
Tbprdsir.FieldByname('rub5').asstring]),[loCaseInsensitive]) then
Vwgt5 := DataModule1.TbBase.FieldByName('desity').AsFloat*0.01*Tbprdsir.FieldByName('area5').asfloat;
Vwgt := Rounda(Vwgt1 Vwgt2 Vwgt3 Vwgt4 Vwgt5);
if Vwgt > 0 THEN
BEGIN
// 只要確定以下五個欄位都是計算欄位, 而不是實體欄位, 就不會錯了
Tbprdsir.FieldByname('uwgt').asfloat := Vwgt;
Tbprdsir.FieldByname('per1').asfloat := Roundb(Vwgt1/Vwgt);
Tbprdsir.FieldByname('per2').asfloat := Roundb(Vwgt2/Vwgt);
Tbprdsir.FieldByname('per3').asfloat := Roundb(Vwgt3/Vwgt);
Tbprdsir.FieldByname('per4').asfloat := Roundb(Vwgt4/Vwgt);
END;
end;

如果是實體欄位，也不會發生錯誤吧?@@
其實之前這個地方一直都沒問題，也沒動過
後來我改了其他地方，出錯的地方就指向這邊了
卻一直找不到問題何在 >"<

------
Aki..就算沒有明天

因為OnCalcFields事件,
是在任何資料顯示或更動時,
就會執行,
例如DataSet.Open,
因此在這裡來更動實體欄位的值並不洽當,

依照OO的觀念,
應該是放在某個欄位的OnValid,
來更動其他欄位的值, 會不會好一點?
ps.因為某個欄位的值變動, 而要更動另一欄位的值

妳會產生錯誤的原因是,
例如資料查詢出來,
就會執行OnCalcFields,
但是這個時候並沒有DataSet.Edit
所以就錯了!!
這樣說明, 能明白嗎??