Foxtable(狐表)用户栏目专家坐堂 → 遍历任务栏页面判定,在指定页面增加任务


  共有2929人关注过本帖树形打印复制链接

主题:遍历任务栏页面判定,在指定页面增加任务

帅哥哟,离线,有人找我吗?
cxmxjwlmq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:349 积分:4112 威望:0 精华:0 注册:2018/4/6 18:02:00
遍历任务栏页面判定,在指定页面增加任务  发帖心情 Post By: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

 

请各位老师指教!谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
cxmxjwlmq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:349 积分:4112 威望:0 精华:0 注册:2018/4/6 18:02:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
cxmxjwlmq
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:349 积分:4112 威望:0 精华:0 注册:2018/4/6 18:02:00
  发帖心情 Post By:2021/2/27 18:25:00 [只看该作者]

达成效果,谢谢蓝老师!


 回到顶部