以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选定后就关闭下拉窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158755)

--  作者:zhuxinhui
--  发布时间:2020/12/1 18:59:00
--  选定后就关闭下拉窗口
下拉窗口valuechanged事件代码:
Dim dr As DataRow = DataTables("科目表").Find("科目编码=\'" & e.Sender.Text & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("DropBox2").Enabled = dr("货物")   
End If
一选定科目后就自动关闭窗,可不可以选定后不关闭下拉窗口
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20201201185343.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/12/1 20:14:00
--  
DropDownClosed代码看看
--  作者:zhuxinhui
--  发布时间:2020/12/2 9:30:00
--  
DropDownClosed里没有代码也是这样

--  作者:有点蓝
--  发布时间:2020/12/2 9:35:00
--  
请上传实例说明
--  作者:zhuxinhui
--  发布时间:2020/12/2 9:54:00
--  
查到原来了,除了用科目权下拉窗口外都不会关闭,原来是科目树的下拉窗口的问题,具体得查查是哪里出问题了,应该是这个代码有问题
If e.node.nodes.count = 0 Then \'最末级   
   Dim tr As Row
   Dim dr As DataRow = DataTables("科目表").find("科目编码=\'" & e.Node.name & "\'") \'获取生成此节点的DataRow

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20201202.png
图片点击可在新窗口打开查看

     e.Form.DropDownBox.Value = dr("科目编码") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
     e.Form.DropDownBox.CloseDropdown()
End If

--  作者:有点蓝
--  发布时间:2020/12/2 9:55:00
--  
e.Form.DropDownBox.CloseDropdown()这句代码?
--  作者:zhuxinhui
--  发布时间:2020/12/2 10:03:00
--  
应该是,它把二个下拉窗口同时关闭了,这二个下拉窗口有什么区别
--  作者:有点蓝
--  发布时间:2020/12/2 10:31:00
--  
下拉窗口里的DropDownBox控件的下拉窗口?我测试没有问题,只会关闭当前的下拉窗口,不会关闭底层的下拉窗口。

做个例子发上来测试一下

--  作者:zhuxinhui
--  发布时间:2020/12/2 10:35:00
--  
不是目录树的下拉窗口是没有问题,一用目录树下拉窗口就是这样
--  作者:有点蓝
--  发布时间:2020/12/2 10:49:00
--  
是有这种情况,已反馈

临时可以改为使用按钮关闭窗口,不要在目录树事件里处理。