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

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>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>index.html</WebPage>
<ApplicationRevision>99</ApplicationRevision>
<ApplicationRevision>101</ApplicationRevision>
<ApplicationVersion>4.4.3.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>

View File

@@ -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
If devloop.Equals("000") Then
Return mSaveRoomTypeModal
Else
Return Nothing
End If
End Select
Return mSaveRoomTypeModal
End Function

View File

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