debug：浙江电子招投标建设项目属性

MainUI/ProjectManage/ProjectsDM.pas

@@ -3687,7 +3687,7 @@ begin
       if SameText(AName, SZhaoBiaoRen) or SameText(AName, SZhaoBiaoRenRepresentative) or SameText(AName, SEditDate) then
         for J := 0 to ProjList.Count - 1 do
         begin
-          ProjData := TScProjBaseData(ProjList.ProjData[I]);
+          ProjData := TScProjBaseData(ProjList.ProjData[J]);
           // 已打开的项目在这里修改，未打开的项目在打开时同步
           if ProjData.IsOpened and (ProjData.BuildProjectID = ARecord.ValueByName(SID).AsInteger) and (ProjData.Project <> nil) and (ProjData.Project.IsOpened) then
             ProjData.Properties.Values[AName] := AValue;