主题：[求助]任务栏任务页面多条件筛选

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

回复3楼，用IE浏览器访问论坛，其它浏览器可能不兼容。