- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 遍历任务栏页面判定，在指定页面增加任务 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160935)
-- 发布时间：2021/2/26 17:53:00
-- 遍历任务栏页面判定，在指定页面增加任务
各位老师：我想在以下代码中实际的效果：
遍历任务栏中页面1中LINKS的名称，如果有TEXTBOXT的名称，则不增加，否则增加，但这个判断不会写？
Dim Page As WinForm.TopicPage = Forms("窗口1").Controls("TopicBar1").Pages("页面1")
Dim fxr As String = e.Form.Controls("TextBox4").value
For Each lnk As WinForm.TopicLink In Page.Links
‘如果 = fxr
esle
Page.Links.Add(fxr,fxr)
endif
Next
请各位老师指教！谢谢！
-- 发布时间：2021/2/27 8:51:00
--
For Each lnk As WinForm.TopicLink In Page.Links
if lnk.text <> fxr then
Page.Links.Add(fxr,fxr)
end if
Next
-- 发布时间：2021/2/27 15:09:00
--
蓝老师：按照代码修改后，效果是这样的（如下图）
此主题相关图片如下：微信图片_20210227150516.png
感觉是按照任务数量增加的新任务。当第一个333增加后，再增加3334，第三次执行时，增加了2个3334，再增加已经有的333时，增加了3个。
我想达到的效果是：
如果有了，就不增加，如果没有，就增加一外！（如下图）
此主题相关图片如下：微信图片_20210227150814.png
当再有333时，便不再增加333的任务，3334也一样的！如是33345，则增加！
还得麻烦您！谢谢
[此贴子已经被作者于2021/2/27 15:11:30编辑过]
-- 发布时间：2021/2/27 17:07:00
--
Dim b As Boolean
For Each lnk As WinForm.TopicLink In Page.Links
If lnk.Name = fxr Then
b=True
Exit For
End If
Next
If b = False Then
Page.Links.Add(fxr,fxr)
End If
-- 发布时间：2021/2/27 18:25:00
--
达成效果，谢谢蓝老师！