以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129712)
--  作者：lfz123
--  发布时间：2019/1/4 13:57:00
--  下拉目录树
我在NodeMouseDoubleClick中写了代码 为什么单元格值写不进去啊  
e.Form.DropTable.Current("现金流科目") = e.Node.Text
e.Form.DropDownBox.CloseDropdown

我是这样建立目录树的
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("现金流科目","编码","现金流科目", ".")
trv.Nodes.Insert("显示所有行",0)
trv.ExpandAll()
--  作者：有点甜
--  发布时间：2019/1/4 15:18:00
--  

改成

 

e.Form.DropTable.Current("现金流科目") = e.Node.Text
e.form.dropdownbox.value = e.node.text
e.Form.DropDownBox.CloseDropdown