修复无卡取电添加最后一个映射回路异常问题

BLV_Studio/Test/GridTest/PowerSupply.vb

@@ -181,8 +181,10 @@ Public Class PowerSupply
                 crow = j
                 '21,1,0,1,
                 '21,2,10,2,
-                If chname.Contains("CH1") Then
-                    Exit For
+                If chname.Contains("CH10") Then
+                    addserviceData = "40,1,0,1,"
+                    addserviceData1 = "40,2,0,1,"
+
                     'addserviceData = "13,1,0,1,"
                     'addserviceData1 = "13,2,0,1,"
                 ElseIf chname.Contains("CH2") Then
@@ -209,9 +211,8 @@ Public Class PowerSupply
                 ElseIf chname.Contains("CH9") Then
                     addserviceData = "39,1,0,1,"
                     addserviceData1 = "39,2,0,1,"
-                ElseIf chname.Contains("CH10") Then
-                    addserviceData = "40,1,0,1,"
-                    addserviceData1 = "40,2,0,1,"
+                ElseIf chname.Contains("CH1") Then
+                    Exit For
                 Else
                     Exit For
                 End If