fix: 一处逻辑判断错误,但未解决版本判断错误的问题

This commit is contained in:
Pigeon0v0
2024-06-15 23:29:53 +08:00
parent 8d9dc4712b
commit 655364b06a
2 changed files with 2 additions and 2 deletions
@@ -904,7 +904,7 @@
Dim Name As String '存储 rawVersion,貌似变化更加频繁 Dim Name As String '存储 rawVersion,貌似变化更加频繁
Dim StdVersion As String '存储 version,相对规则 Dim StdVersion As String '存储 version,相对规则
Dim IsBeta As Boolean Dim IsBeta As Boolean
If Token("version").Contains("-beta") Then If Token("rawVersion").Contains("-beta") Then
StdVersion = Token("version").ToString() - "-beta" StdVersion = Token("version").ToString() - "-beta"
IsBeta = True IsBeta = True
Else Else
@@ -2258,7 +2258,7 @@ Retry:
'建立控件 '建立控件
Dim NewItem As New MyListItem With { Dim NewItem As New MyListItem With {
.Title = If(Entry.IsBeta, Entry.Version & "-beta", Entry.Version), .SnapsToDevicePixels = True, .Height = 42, .Type = MyListItem.CheckType.Clickable, .Tag = Entry, .Title = If(Entry.IsBeta, Entry.Version & "-beta", Entry.Version), .SnapsToDevicePixels = True, .Height = 42, .Type = MyListItem.CheckType.Clickable, .Tag = Entry,
.Info = If(Entry.IsBeta, "稳定版", "测试版") & .Info = If(Entry.IsBeta, "测试版", "稳定版") &
If(Entry.ReleaseTime = "", If(Entry.ReleaseTime = "",
If(ModeDebug, "种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), ""), If(ModeDebug, "种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), ""),
"发布于 " & Entry.ReleaseTime & If(ModeDebug, ",种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), "")), "发布于 " & Entry.ReleaseTime & If(ModeDebug, ",种类:" & Entry.Category & If(Entry.Branch Is Nothing, "", ",开发分支:" & Entry.Branch), "")),