- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]下拉窗口传值问题！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188181)
-- 发布时间：2023/9/6 13:41:00
-- [求助]下拉窗口传值问题！
目录树的TEXT为地区名字，NAME为地区编码。这个下拉窗口显示值为目录树的TEXT，怎么能目录树NAME，即将“西北”的编码“0104”显示在标签“地区编码”中？
-- 发布时间：2023/9/6 13:52:00
--
http://www.foxtable.com/webhelp/topics/2465.htm
如果除了客户ID列，还要同时从客户表选择其它多列内容输入到订单表，可以将DropDownClosed事件代码改为：
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
-- 发布时间：2023/9/6 15:05:00
--
如何控制这个下拉窗口取值为末级节点？
-- 发布时间：2023/9/6 15:15:00
--
点击事件里判断一下，如果当前节点没有下级节点就是末级了
比如：
if e.nodex.count = 0 then
msgbox("末级")
else
msgbox("不是末级")
endif
-- 发布时间：2023/9/6 15:48:00
--
如何保证上述下拉窗口关闭时取值为末级节点的值？
-- 发布时间：2023/9/6 15:54:00
--
下拉窗口关闭时是怎么取值的，参考4楼加判断