Foxtable(狐表)用户栏目专家坐堂 → 急急急:非关联表的情况下如何实现这个功能!


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

主题:急急急:非关联表的情况下如何实现这个功能!

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
急急急:非关联表的情况下如何实现这个功能!  发帖心情 Post By:2014/4/9 13:28:00 [只看该作者]

表A:订单外加工表  表B:出库明细表

注:2表都有编号列,如果用关联的方法,很容易实现。但是非关联情况下如何实现呢!!

当我选择订单外加工表中的某个订单时,出库明细表(副表)也对应显示该订单的出库明细!

急。。。。求助!!


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


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

 编写 currentChanged 事件

 

If Forms("xxx").Opened Then

    Forms("xxx").Controls("Table1").Table.Filter = "订单号 = " & e.Table.current("订单号")

End If


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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/9 14:52:00 [只看该作者]

老师,这个是窗口直接显示吗!可不可以从下面的表中直接显示!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/9 14:55:00 [只看该作者]

设置Tables("XX").Filter 即可

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/9 15:01:00 [只看该作者]

Bin老师,给个详细的代码啊!我的操作是用分区面板,在下面添加了个Table绑定了材料出库表作为副表!

点击对应的订单,下面的副表会显示对应的行!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/9 15:02:00 [只看该作者]

详细代码不是在2楼吗?  还需要怎么样详细?

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/9 15:16:00 [只看该作者]

提示我不存在名称为XX的窗口

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/9 15:19:00 [只看该作者]

你要写窗口名啊,不可以盲目的套啊.  如果要指定表 直接就写  tables("表名").Filter 即可,不需要前面那一部分

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/9 15:23:00 [只看该作者]

If Forms("xxx").Opened Then

    Tables("XX").Filter = "订单号 = " & e.Table.current("订单号")

End If


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


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/9 15:24:00 [只看该作者]

这样修改吗,bin老师!

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