Foxtable(狐表)用户栏目专家坐堂 → [求助]如何完善代码


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

主题:[求助]如何完善代码

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
[求助]如何完善代码  发帖心情 Post By:2018/4/27 9:18:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

请问各位老师,我要如何完善代码:Tables("基础信息").Filter = e.page.name & "='" & e.link.name & "'"
                '返回或设置<基础信息表>的过滤条件表达式等于当前表任务所在的页面名称等于当前表所单击的任务名称
[此贴子已经被作者于2018/4/27 9:18:46编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/27 9:26:00 [只看该作者]

If e.page.name = "岗位类别" Then
    Tables("基础信息").Filter = "岗位类别='" & e.link.name & "'"
Else
    Tables("基础信息").Filter = "岗位类别='" & e.Page.name & "岗位' and 岗位职称等级='" & e.link.name & "'"
End If
[此贴子已经被作者于2018/5/16 8:57:26编辑过]

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/4/27 10:08:00 [只看该作者]

以下是引用有点甜在2018/4/27 9:26:00的发言:
If e.page.name = "岗位类别" Then
    Tables("基础信息").Filter = "岗位类别='" & e.link.name & "'"
Else
    Tables("基础信息").Filter = "岗位类别='" & e.Page.nzme & "岗位' and 岗位职称等级='" & e.link.name & "'"
End If

首先感谢有点甜老师的指点,但中间的这句如何解释或者理解:"岗位' and 岗位职称等级='"

主要是这个"岗位"指的是什么意思?

[此贴子已经被作者于2018/4/27 10:08:17编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/27 10:10:00 [只看该作者]

加入红色代码,弹出看看

 

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

 

http://www.foxtable.com/webhelp/scr/1647.htm

 

http://www.foxtable.com/webhelp/scr/1284.htm

 


[此贴子已经被作者于2018/5/16 8:57:13编辑过]

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/5/16 8:26:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

请问各位老师:如果还有其它列需要筛选的话,代码又当如何完善呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/16 8:57:00 [只看该作者]

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


 回到顶部