合计行排序问题

DataModules/BillsGatherDm.pas

@@ -366,7 +366,7 @@ var
     Rec := sddGclBills.Add;
     Rec.ValueByName('ID').AsInteger := AGather.ID;
 
-    Rec.ValueByName('IndexCode').AsString := '9999999999999999';
+    Rec.ValueByName('IndexCode').AsString := ' ';
     Rec.ValueByName('Name').AsString := 'ºÏ¼Æ';
 
     Rec.ValueByName('DealTotalPrice').AsFloat := AGather.DealTotalPrice;

Frames/BillsGatherFme.pas

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