修复设备回路未设置对应的显示和离线

BLV_Studio/FrmMain.vb

@@ -5029,9 +5029,7 @@ Public Class FrmMain
 
         Dim devtype, devloop As String
         devloop = addr.Substring(6, 3)
-        If devloop.Equals("000") Then
-            Return mSaveRoomTypeModal
-        End If
+
         devtype = addr.Substring(0, 3)
         Select Case devtype
             Case "001"
@@ -5067,7 +5065,12 @@ Public Class FrmMain
                 mSaveRoomTypeModal.OfflineDisplay = 1
             Case "009" '空气质量
             Case Else
-                Return Nothing
+                If devloop.Equals("000") Then
+                    Return mSaveRoomTypeModal
+                Else
+                    Return Nothing
+                End If
+
         End Select
         Return mSaveRoomTypeModal
     End Function