主题：[求助]TopicLinkClick事件代码?

 

以下是现有TopicLinkClick事件代码:

If e.page.name = e.link.name Then
    Tables("基础信息").Filter = e.page.name & "='" & e.link.name & "'"
Else
    Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位' and 岗位职称等级='" & e.link.name & "'"
End If

 

 

此主题相关图片如下：捕获.png

请老师们帮忙看看这个代码的错误地方,如何修正?标红字体代码句没有效果.

Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位'"

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118207&skin=0

 

其实以前也问过这个问题,以下是以前老师给出的答案:

If e.page.name = "岗位类别" Then Tables("基础信息").Filter = "岗位类别='" & e.link.name & "'" Else Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位' and 岗位职称等级='" & e.link.name & "'" msgbox(Tables("基础信息").Filter) End If

可是它只有对:岗位分类统计,专技人员统计,工勤人员统计,管理人员统计有效果以外,其它的:部门分类统计,人员类别统计,学历及学位统计,政治面貌统计,性别分类统计都没有效果.

也就是说,要后面的有效果就是要首先问的一楼中的标红字体代码起作用.

1、你看懂代码了没有？最简单的筛选都不会写？http://www.foxtable.com/webhelp/scr/1647.htm

 

2、你要合成的条件，是要筛选哪个列的数据？你直接写条件 xxx列='xxx值' 进行测试，有效以后再谈其它。

If e.page.name = "岗位类别" Then
    Tables("基础信息").Filter = "岗位类别='" & e.link.name & "'"
ElseIf e.Page.name = "工作部门" Then
    Tables("基础信息").Filter = "工作部门='" & e.link.name & "'"
ElseIf e.Page.name = "人员类别" Then
    Tables("基础信息").Filter = "人员类别='" & e.link.name & "'"
ElseIf e.Page.name = "学历及学位" Then
    Tables("基础信息").Filter = "学历及学位='" & e.link.name & "'"
ElseIf e.Page.name = "政治面貌" Then
    Tables("基础信息").Filter = "政治面貌='" & e.link.name & "'"
ElseIf e.Page.name = "性别" Then
    Tables("基础信息").Filter = "性别='" & e.link.name & "'"
Else
    Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位' and 岗位职称等级='" & e.link.name & "'"
End If

 

 

以上是刚写的，但感觉就是太长了。能有简单的方式吗？

回复7楼，必须分开判断e.page.name的

 

Select Case e.page.name
    Case "部门分类", "人员类别", "学历及学位", "政治面貌", "性别"
        Tables("基础信息").Filter = e.page.name & "='" & e.link.name & "'"
    Case Else
        Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位' and 岗位职称等级='" & e.link.name & "'"
End Select