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

This commit is contained in:
2026-03-19 09:13:41 +08:00
parent 6d4c6c4e64
commit 3bc3cc5495
3 changed files with 10 additions and 7 deletions

View File

@@ -35,7 +35,7 @@
<MinimumRequiredVersion>4.0.0.5</MinimumRequiredVersion> <MinimumRequiredVersion>4.0.0.5</MinimumRequiredVersion>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish> <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>index.html</WebPage> <WebPage>index.html</WebPage>
<ApplicationRevision>99</ApplicationRevision> <ApplicationRevision>101</ApplicationRevision>
<ApplicationVersion>4.4.3.%2a</ApplicationVersion> <ApplicationVersion>4.4.3.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust> <UseApplicationTrust>false</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut> <CreateDesktopShortcut>true</CreateDesktopShortcut>

View File

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

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
'通过使用 "*",如下所示: '通过使用 "*",如下所示:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.4.6.11")> <Assembly: AssemblyVersion("4.4.6.12")>
<Assembly: AssemblyFileVersion("4.4.6.11")> <Assembly: AssemblyFileVersion("4.4.6.12")>