甘肃紫光免密版，标段1有24351条清单，打开时间过长，速度优化。

DataModules/BillsMeasureDm.pas

@@ -1249,6 +1249,7 @@ procedure TBillsMeasureData.CalcMeasureFilter(ANode: TsdIDTreeNode);
 var
   i: Integer;
   vNode: TMeasureBillsIDTreeNode;
+  b: Boolean;
 begin
   if not Assigned(ANode) then Exit;
 
@@ -1256,8 +1257,11 @@ begin
     CalcMeasureFilter(ANode.ChildNodes[i]);
 
   vNode := TMeasureBillsIDTreeNode(ANode);
-  vNode.Rec.HisHasMeasure.AsBoolean := vNode.Rec.HisHasMeasure.AsBoolean or vNode.Rec.CurHasMeasure.AsBoolean;
-  vNode.Rec.CurHasMeasure.AsBoolean := False;
+  b := vNode.Rec.HisHasMeasure.AsBoolean or vNode.Rec.CurHasMeasure.AsBoolean;
+  if vNode.Rec.HisHasMeasure.AsBoolean <> b then
+    vNode.Rec.HisHasMeasure.AsBoolean := b;
+  if vNode.Rec.CurHasMeasure.AsBoolean <> False then
+    vNode.Rec.CurHasMeasure.AsBoolean := False;
 
   CalcMeasureFilter(ANode.NextSibling);
 end;