Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]组合框


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

主题：[求助]组合框
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1748 积分：11672 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]组合框  发帖心情 Post By：2017/12/23 14:40:00 [只看该作者]

老师好,组合框5如果在组合框2中得不到数据信息希望能在组合框1中获取数据信息.

 


图片点击可在新窗口打开查看此主题相关图片如下：2017-12-23 14 35 49.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109463 积分：556971 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/12/23 14:46:00 [只看该作者]

代码贴出来，文字，不要截图

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


加好友 发短信
等级：七尾狐 帖子：1748 积分：11672 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/12/23 15:19:00 [只看该作者]

老师好：


e.Form.Controls("ComboBox1").ComboList = bms.GetComboListString("窗口归类")
上面是窗口AfterLoad事件代码

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = bms.GetComboListString("窗口名", "窗口归类 = '" & str & "'")
上面是组合框2Enter事件代码

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = bms.GetComboListString("窗口名1", "窗口名 = '" & str & "'")

如果组合框2没有数据就在组合框1中获取数据信息。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109463 积分：556971 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/12/23 15:38:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Text
if str > "" then
    str = "窗口名 = '" & str & "'"
else
    str =  "窗口归类 = '" & e.Form.Controls("ComboBox1").Text & "'"
endif
cmb.ComboList = bms.GetComboListString("窗口名1", str)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询