清单汇总，比较同编号，不同名、单位、单价清单时，限制空行不参与对比。

Frames/BillsGatherFme.pas

@@ -180,7 +180,7 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
 var
   bSimilarBills: Boolean;
 begin
-  if (ACoord.Y >= zgGclBills.FixedRowCount) then
+  if (ACoord.Y >= zgGclBills.FixedRowCount) and (ACoord.Y < zgGclBills.FixedRowCount + saGclBills.DataView.RecordCount) then
   begin
     if ACoord.Y = zgGclBills.FixedRowCount then
       bSimilarBills := CheckSimilarBills(ACoord.Y, ACoord.Y + 1)