导出清单部位明细Excel数据，计量单元带图号

Units/BillsPosTree.pas

@@ -12,10 +12,12 @@ type
     FQuantity: Double;
     FMemoStr: string;
     FName: string;
+    FDrawingCode: string;
   public
     property Name: string read FName write FName;
     property Quantity: Double read FQuantity write FQuantity;
     property MemoStr: string read FMemoStr write FMemoStr;
+    property DrawingCode: string read FDrawingCode write FDrawingCode;
   end;
 
   TBillsPosTreeNode = class(TCacheNode)

Units/ExportExcel.pas

@@ -843,6 +843,7 @@ begin
       vPos.Name := ANode.Rec.Name.AsString;
       vPos.Quantity := vChild.Rec.Quantity.AsFloat;
       vPos.MemoStr := ANode.Rec.MemoStr.AsString;
+      vPos.DrawingCode := ANode.Rec.DrawingCode.AsString;
     end;
   end;
 end;
@@ -1018,7 +1019,7 @@ begin
     vCell.EmptyIfZero := True;
     vCell := vRow.AddCellNumber(); 
     vCell.EmptyIfZero := True;
-    vRow.AddCellString();
+    vRow.AddCellString(vPos.DrawingCode);
     vRow.AddCellString(vPos.MemoStr);
   end;
 end;