- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]任务栏任务页面多条件筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77692)
-- 发布时间：2015/11/23 16:48:00
-- [求助]任务栏任务页面多条件筛选
老师好，如何有选择性地给任务栏，页面，任务添加求和代码呢？
如图，希望点击某个任务，即可自动显示对应项目，类别的明细，同时隐藏其他列
此主题相关图片如下：(p3ss_ck_jr8vtm15eg7q.png
[此贴子已经被作者于2015/11/23 18:35:42编辑过]
-- 发布时间：2015/11/23 17:07:00
--
TopicLinkClick事件
Dim tbp As WinForm.TopicBar = e.Form.Controls("账本TopicBar1")
For Each pg As WinForm.TopicPage In tbp.Pages
For Each lnk As WinForm.TopicLink In pg.Links
lnk.Text = lnk.Text.Trim("←")
Next
Next
e.Link.Text = e.Link.Text & "←"
Dim ym As String = e.Page.Name
Tables("B004").Filter = "类别 = \'"& e.Link.Name & "\'"
Dim vcols() As String = {"类别""编码","描述","冗余","图片","帐差","各组总汇"}
For Each c As Col In Tables("B004").Cols
If ym = "B004" OrElse c.name Like ym & "*" OrElse array.IndexOf(vcols, c.name) > -1 Then
c.visible = True
Else
c.visible = False
End If
Next
-- 发布时间：2015/11/23 18:35:00
--
噢噢，原来如此，Filter还可以这么用。。。
老师，还有一个问题，每次发帖时，上传附件那一栏的总是空白的，刷新也不行，这是怎么回事呢？
而且，上传了一个之后，又是空白了，想再传一个也不行
此主题相关图片如下：上传问题.gif
[此贴子已经被作者于2015/11/23 18:35:22编辑过]
-- 发布时间：2015/11/23 19:11:00
--
\'隐藏非展开页面的内容
Dim ym As String = e.Page.Name \'定义一个为页面名称的字符型变量ym
For Each c As Col In Tables("B004").Cols \'遍历B004表的列,存列名在C
If ym <> c.Name Like ym & "*" Then \'假如列名不含页面名称
c.Visible = False \'那么隐藏
Else
c.Visible = True \'否则显示
End If
Next
怎么不执行呢？
-- 发布时间：2015/11/23 19:20:00
--
回复3楼，用IE浏览器访问论坛，其它浏览器可能不兼容。
-- 发布时间：2015/11/23 19:23:00
--
Dim ym As String = e.Page.Name \'定义一个为页面名称的字符型变量ym
For Each c As Col In Tables("B004").Cols \'遍历B004表的列,存列名在C
If c.Name Like ym & "*" = false Then \'假如列名不含页面名称
c.Visible = False \'那么隐藏
Else
c.Visible = True \'否则显示
End If
Next
-- 发布时间：2015/11/23 21:03:00
--
感谢红袍老师的指点！！
