以前都说习惯了STL，既然现在1500SCL效率最高，求人不如求己啊，自己尝试整了一下，分享给大家：

#Tmp_number := 0;

#Tmp_DWord4 := 0;

#Tmp_DWord:= #fc_Data_digit;

FOR #Tmp_number := 0 TO (#fc_Array_Length-1)

DO

    IF #Tmp_DWord > "数据块_4".DB_VAR[#Tmp_number] THEN

        #Tmp_DWord2 := "数据块_4".DB_VAR[#Tmp_number];

        "数据块_4".DB_VAR[#Tmp_number] := #Tmp_DWord;

        #Tmp_DWord := #Tmp_DWord2;

    END_IF;

    #Tmp_DWord4 := #Tmp_DWord4 + "数据块_4".DB_VAR[#fc_Offset];

    #fc_Offset := #fc_Offset + 1;

END_FOR;

#fc_SumOfMeasures := #Tmp_DWord4;

欢迎各位批评指正哈！！！