Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选后赋值


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

主题：筛选后赋值
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		筛选后赋值  发帖心情 Post By：2021/6/28 13:49:00 [只看该作者]

后台筛选订单表，订单ID 后，打开窗口1 并将结果显示在 窗口1_Table1 并指定显示列


请教怎么写代码





Tables("窗口1_Table1").SetColVisibleWidth("日期|90|产品|120|客户|120|数量|60") 

[此贴子已经被作者于2021/6/28 13:49:55编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107847 积分：548592 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/28 13:59:00 [只看该作者]

Tables("窗口1_Table1").fill("select * from {订单} where 订单ID='001'","某数据源",false)
Tables("窗口1_Table1").SetColVisibleWidth("日期|90|产品|120|客户|120|数量|60")
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/6/29 16:43:00 [只看该作者]

Forms("简讯窗口").Show
Dim Filter As String
Filter = "[岗位ID] = '" & Tables("组织机构").current("岗位ID") & "'"
MessageBox.Show(Filter)

Forms("简讯窗口").Controls("窗口1_Table11").Fill("S el ect * F rom {人才档案} Where " & Filter, False)

'Tables("简讯窗口_Table1").SetColVisibleWidth("职员姓名|90|入职日期|120|性别|120|部门名称|60")

还是不行，不能赋值到窗口的表内
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107847 积分：548592 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/29 16:51:00 [只看该作者]

代码放到窗口afterload事件

Dim Filter As String
Filter = "[岗位ID] = '" & Tables("组织机构").current("岗位ID") & "'"
MessageBox.Show(Filter)

Tables("简讯窗口_Table11").Fill("S el ect * F rom {人才档案} Where " & Filter, False)
Tables("简讯窗口_Table11").SetColVisibleWidth("职员姓名|90|入职日期|120|性别|120|部门名称|60")
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/6/29 17:40:00 [只看该作者]

我是想放在组织机构表的
Click

单击单元格后执行

通过单击进行筛选人才档案， 并打开简讯窗 筛选后的数据显示在 简讯窗的Table11内

[此贴子已经被作者于2021/6/29 17:40:03编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107847 积分：548592 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/29 20:34:00 [只看该作者]

代码一样的，如果不行请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/6/29 22:14:00 [只看该作者]


[此贴子已经被作者于2021/6/29 23:03:15编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107847 积分：548592 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/29 22:35:00 [只看该作者]

意思是把点击的窗口表的那一行数据显示到另外一个窗口的控件里？搞半天和上面描述的问题没有半毛钱关系呀

如果不想绑定，直接给控件赋值，表格click事件
Forms("简讯窗口").Controls("label1").text = e.row("某某列")
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/6/29 23:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20210629230242.png
图片点击可在新窗口打开查看
要用表显示，显示岗位ID下的职员，就是关联的明细表内容显示出来在窗口表中
上边的表应该显示列("职员姓名|90|入职日期|120|性别|120|部门名称|60")内容 但是没有

Dim Filter As String
Filter = "[岗位ID] = '" & Tables("组织机构").current("岗位ID") & "'"
'MessageBox.Show(Filter)

Forms("简讯窗口").Show
Tables("简讯窗口_Table11").Fill("Se lect * F rom {人才档案} Where " & Filter, False)
Tables("简讯窗口_Table11").SetColVisibleWidth("职员姓名|90|入职日期|120|性别|120|部门名称|60")
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20210629230210.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/6/29 23:03:50编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107847 积分：548592 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/29 23:08:00 [只看该作者]

请上传实例说明

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询