Sql语气丢失一个符号

Units/ProjectData.pas

@@ -995,7 +995,7 @@ procedure TProjectData.CopyPhaseData;
 
   procedure UpdateBillsByDealBills;
   const
-    sClearSql = 'Update Bills Set GclDealQuantity = 0 GclDealTotalPrice = 0';
+    sClearSql = 'Update Bills Set GclDealQuantity = 0, GclDealTotalPrice = 0';
     sUpdateSql = 'Update Bills As B, DealBills As D' +
                  '    Set B.GclDealQuantity = D.Quantity, B.GclDealTotalPrice = D.TotalPrice' +
                  '  Where (B.B_Code = D.B_Code) and (B.Name = D.Name) and (B.Units = D.Units) and (B.Price = D.Price)';