Boonlive_RD_Web/Desktop_BLVStudio
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修复比较版本错误问题

Browse Source
This commit is contained in:
chenzhihao
2026-03-13 15:22:56 +08:00
parent 0da9f8c36c
commit 91d24b1143
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
BLV_Studio/Test/GridTest/TableInteraction.vb
View File

@@ -4265,7 +4265,7 @@ Public Class TableInteraction
Dbuf = dic.Item([Enum].GetName(GetType(AddPeripherals.Temproweven), AddPeripherals.Temproweven.互锁)).Trim.Split("*")
ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16"))
End If
If FVer =67 Then
If FVer =68 Then
Dim btxtr As string
Dim bctr As Integer=48
@@ -4287,7 +4287,7 @@ Public Class TableInteraction
dim btxli As Byte()= GetActionData(DeviceModuleDic, DevName, "Temp", 1, btxtr)
btxli(5) = bctr
ncbuf.Add(btxli)
Else If FVer > 67 Then
Else If FVer > 68 Then
Else
If checkbuf(1).Equals("1") Then
'Dbuf = dic.Item([Enum].GetName(GetType(AddPeripherals.Temproweven), AddPeripherals.Temproweven.互锁)).Trim.Split("*")
@@ -4356,7 +4356,7 @@ Public Class TableInteraction
ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16"))
End If
If FVer =67 Then
If FVer =68 Then
Dim btxtr As string
Dim bctr As Integer=32
@@ -4380,7 +4380,7 @@ Public Class TableInteraction
dim btxli As Byte()= GetActionData(DeviceModuleDic, DevName, "Temp", 1, btxtr)
btxli(5) = bctr
ncbuf.Add(btxli)
Else If FVer > 67 Then
Else If FVer > 68 Then
Else
If checkbuf(1).Equals("1") Then