新增温控提示音版本控制分支和设备链表上传

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -464,6 +464,7 @@ Public Class TableInteraction
             'Case
             '    result = $"{buf(2)}"控制温控器
             Case "Temp"
+                  result = cellstr
                 If buf.Length > 5 AndAlso cbuf(7).Equals("控制温控器") Then
                     'cbuf = buf(3).Split(" ")
                     'result = $"{cbuf(cbuf.Length - 1)}"
@@ -473,7 +474,7 @@ Public Class TableInteraction
                     result = $"{result}{cbuf(cbuf.Length - 1)}"
 
                 End If
-
+               
             Case Else
 
         End Select
@@ -4268,7 +4269,7 @@ Public Class TableInteraction
                        
                         Dim btxtr As string
                         Dim bctr As Integer=32
-                        If checkbuf(0).Equals("1") Then
+                        If checkbuf(1).Equals("1") Then
                            bctr=bctr or (1<<2)                          
                         End If
                         If checkbuf(3).Equals("1") Then
@@ -4351,7 +4352,7 @@ Public Class TableInteraction
                        
                         Dim btxtr As string
                         Dim bctr As Integer=32
-                        If checkbuf(0).Equals("1") Then
+                        If checkbuf(1).Equals("1") Then
                            bctr=bctr or (1<<2)                          
                         End If
                         If checkbuf(3).Equals("1") Then