Foxtable(狐表)用户栏目专家坐堂 → 窗口中获取控件的值


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

主题:窗口中获取控件的值

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


加好友 发短信
等级:一尾狐 帖子:402 积分:3539 威望:0 精华:0 注册:2014/1/8 17:12:00
窗口中获取控件的值  发帖心情 Post By:2015/7/23 14:30:00 [只看该作者]

我建立了一个窗口,分别有2个DropDownBox控件。分别为DropBox1,DropBox2。

为DropBox2设计了一个DropDownForm式的下拉窗口。

现在的问题是,如果DropBox1录入了值。当点击DropBox2时,根据DropBox1的值。自动从后台加载筛选到的数据。
主要求教的是,在DropBox2的下拉窗口DropDownForm中获取DropBox1的值的方法。

获取后的数值后代码为:比如获取的值定义为 “sss“
Tables("下拉_table1").fi ll("SEL ECT DISTINCT 实验 From {工序清单} WHERE 列 = sss ","shenchan",True)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 14:52:00 [只看该作者]

Tables("下拉_table1").fi ll("SEL ECT DISTINCT 实验 From {工序清单} WHERE 列 = '" & Forms("窗口1").Controls("DropBox1").Text & "'","shenchan",True)

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


加好友 发短信
等级:一尾狐 帖子:402 积分:3539 威望:0 精华:0 注册:2014/1/8 17:12:00
  发帖心情 Post By:2015/7/23 15:11:00 [只看该作者]

大红袍版主您好!显示不行,fill 接受此数目的参数,因重载决策失败。

我是把以上语句写入DropDownForm中的。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 15:33:00 [只看该作者]

 代码没问题

 

Tables("下拉_table1").fill("SEL ECT DISTINCT 实验 From {工序清单} WHERE 列 = '" & Forms("窗口1").Controls("DropBox1").Text & "'","shenchan",True)


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


加好友 发短信
等级:一尾狐 帖子:402 积分:3539 威望:0 精华:0 注册:2014/1/8 17:12:00
  发帖心情 Post By:2015/7/24 13:30:00 [只看该作者]

版主您好!代码没有问题了。现在有个新的问题。
DropBox1里录入值后。
点击DropBox2,出现下拉窗口,也显示排除重复的值得数据。
但是如果修改DropBox1的值后,DropBox2的下拉窗口显示的还是对应第一次录入DropBox1的值得到的结果。
如果DropBox1是控制,先点击DropBox2的下拉窗口,得到的是空表后。再在DropBox1录入数值,DropBox2点击后下拉窗口还是空表。
感觉如下语句中
Tables("下拉_table1").fill("SEL ECT DISTINCT 实验 From {工序清单} WHERE 列 = '" & Forms("窗口1").Controls("DropBox1").Text & "'","shenchan",True)
'" & Forms("窗口1").Controls("DropBox1").Text & "'的值显示的都是第一次得到的数值。

语句Tables("下拉_table1").fill("SEL ECT DISTINCT 实验 From {工序清单} WHERE 列 = '" & Forms("窗口1").Controls("DropBox1").Text & "'","shenchan",True)
我是填写到DropBox2的DropDownForm模式下拉窗口的afterload中的。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/24 14:14:00 [只看该作者]

代码写到 DropDownOpened 事件去。


 回到顶部