- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何实现共用下拉窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43671)
-- 发布时间：2013/12/12 16:17:00
-- [求助]如何实现共用下拉窗口
第一个下拉组合框可以正常使用下拉窗口，第二个下拉组合框就用不下拉窗口了，请各位老师帮助解决！！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:共用下拉窗口.foxdb |
[此贴子已经被作者于2013-12-12 16:18:25编辑过]
-- 发布时间：2013/12/12 16:20:00
--
12楼：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33606&authorid=0&page=0&star=2
-- 发布时间：2013/12/12 20:40:00
--
经过仔细阅读和分析，这个下拉窗口与目录树列表有点不一样，请老师们帮我看看！！！
-- 发布时间：2013/12/12 21:08:00
--
代码类似这样改
Dim tbl As Table = Tables("编码下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
If e.Form.DropDownBox.BindingField Like "表A*1" Then
Tables("表A").Current("手术编码1") = tbl.Current("icd9")
Tables("表A").Current("手术操作名称1") = tbl.Current("手术名称")
Else If e.Form.DropDownBox.BindingField Like "表A*2" Then
Tables("表A").Current("手术编码2") = tbl.Current("icd9")
Tables("表A").Current("手术操作名称2") = tbl.Current("手术名称")
End If
End If
Forms("编码下拉窗口").Close()
-- 发布时间：2013/12/12 21:39:00
--
谢谢指点，马上去测试！
-- 发布时间：2013/12/13 9:53:00
--
测试完成，达到应用目的，上个例子供大家参考！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:共用下拉窗口2.0.table |