Foxtable(狐表)用户栏目专家坐堂 → 目录树


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

主题:目录树

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 12:03:00 [显示全部帖子]

节点的 NodeClick事件 
判断一下节点,然后执行对应的代码即可

例如
select case e.node.text
    case "联系"
      forms("窗口").show
    case "从未联系"
      forms("窗口2").show
end select

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 13:34:00 [显示全部帖子]

你的是模式窗口还是独立窗口?

独立窗口就在 SHow代码后面加入筛选代码

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 13:38:00 [显示全部帖子]

副本表还是?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 13:41:00 [显示全部帖子]

SHOW代码之前.加入主表筛选代码

例如

tables("XX").FIlter="谋洌='A'"
forms("XX').SHOW

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:13:00 [显示全部帖子]

你的明明是主窗口和独立窗口,直接写上筛选语句在后面 100%可以

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:39:00 [显示全部帖子]

你都没去试试,不可能不行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:48:00 [显示全部帖子]

只是举个例子.你的问题不是不懂如何实现点击节点打开窗口并筛选吗?

例子就已经实现了这个效果

还是说你问题的是如何实现根据子表筛选父表.这是两回事.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:50:00 [显示全部帖子]

而且,筛选的依据你也没有说.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:51:00 [显示全部帖子]

筛选的依据是什么,何为之从未联系

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 16:05:00 [显示全部帖子]

1.筛选从未联系的

Tables("客户信息").Filter="姓名 in ('" & DataTables("联系信息").GetComboListString("客户姓名","联系时间 is null").replace("|","','") & "')"

2.30未联系的

Tables("客户信息").Filter="姓名 in ('" & DataTables("联系信息").GetComboListString("客户姓名","联系时间 < #" & Date.Today.adddays(-30) & "#").replace("|","','") & "')"

 回到顶部
总数 13 1 2 下一页