- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何完善代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118207)
-- 发布时间：2018/4/27 9:18:00
-- [求助]如何完善代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
请问各位老师,我要如何完善代码:Tables("基础信息").Filter = e.page.name & "=\'" & e.link.name & "\'"
\'返回或设置<基础信息表>的过滤条件表达式等于当前表任务所在的页面名称等于当前表所单击的任务名称
[此贴子已经被作者于2018/4/27 9:18:46编辑过]
-- 发布时间：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编辑过]
-- 发布时间：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
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编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2018/5/16 8:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
请问各位老师：如果还有其它列需要筛选的话，代码又当如何完善呢？
-- 发布时间：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