数据不能被修改 ( 积分: 20 )

if&nbsp;tbStock.Locate('fdlPrdtID;fdlWhID',VarArrayOf([PrdtID,WhID]),[])&nbsp;then&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;vQty&nbsp;:=&nbsp;tbStock.FieldByName('fdnQty').AsFloat;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.Edit;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetQtyABCD(PrdtID,vQty,vQtyA,vQtyB,vQtyC,vQtyD,CustID);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.FieldByName('fdnQtyA').asFloat&nbsp;:=&nbsp;vQtyA;//执行到这里的时候就报错，提示fdnQtyA&nbsp;can't&nbsp;be&nbsp;modified<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.FieldByName('fdnQtyB').asFloat&nbsp;:=&nbsp;vQtyB;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.FieldByName('fdnQtyC').asFloat&nbsp;:=&nbsp;vQtyC;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.FieldByName('fdnQtyD').asFloat&nbsp;:=&nbsp;vQtyD;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tbStock.Post;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;

路过,支持楼主[8D],(疑问,为何不用update?,可能我水平低吧![])

怎么这样写啊...有特别用?

你的tbStock.Edit;放错地方了，应该紧跟着locate因为locate执行后，导致数据集滚动，数据集的edit属性自动变为readonly&nbsp;，所以你的赋值语句自然报错了&nbsp;至于执行到下一句才抱错，应该是上一句语句还要没有提交的原因

问题已解决！但是还是派分，locate执行后，导致数据集滚动，数据集的edit属性自动变为readonly，学习了。但是我的问题不是你说的那个原因。