输入本期计量报错

DataModules/BillsMeasureDm.pas

@@ -807,7 +807,6 @@ procedure TBillsMeasureData.sdvBillsMeasureAfterValueChanged(
 var
   vNode: TBillsIDTreeNode;
 begin
-  vNode := TBillsIDTreeNode(BillsMeasureTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger));
 
   if TProjectData(FProjectData).PhaseData.Active then
   begin
@@ -817,12 +816,21 @@ begin
       StageData.ReCalculate(AValue.Owner.ValueByName('ID').AsInteger);
   end;
   if Pos('DgnQuantity1', AValue.FieldName) > 0 then
+  begin
+    vNode := TBillsIDTreeNode(BillsMeasureTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger));
     CalcAddDgnPrice(vNode);
+  end;
 
   if (AValue.FieldName = 'Code') then
-    BillsMeasureTree.RecodeChildrenCode(vNode, VarToStrDef(AValue.OldValue, ''), AValue.AsString)
+  begin                                                                                           
+    vNode := TBillsIDTreeNode(BillsMeasureTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger));
+    BillsMeasureTree.RecodeChildrenCode(vNode, VarToStrDef(AValue.OldValue, ''), AValue.AsString);
+  end
   else if (AValue.FieldName = 'B_Code') then
+  begin
+    vNode := TBillsIDTreeNode(BillsMeasureTree.FindNode(AValue.Owner.ValueByName('ID').AsInteger));
     BillsMeasureTree.RecodeChildrenB_Code(vNode, VarToStrDef(AValue.OldValue, ''), AValue.AsString);
+  end;
 end;
 
 procedure TBillsMeasureData.ExpandCurPhase;