- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口双击后怎么将值上屏？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103305)
-- 发布时间：2017/7/5 15:12:00
-- 下拉窗口双击后怎么将值上屏？
表格里某单元格点击后展开下拉窗口，怎么在双击节点后，能将值赋给单元格？
红色代码不起作用
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tn As WinForm.TreeNode = tr.SelectedNode
If tn.Level = 1 Then
Tables("表a").Current("第一列") = tn.Name
e.Form.Close
End If
此主题相关图片如下：qq截图20170705150756.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2017/7/5 15:25:00
--
NodeMouseDoubleClick 事件
If e.Node.Level = 1 Then
e.Form.DropDownBox.Value = e.Node.Text
e.Form.DropDownBox.CloseDropdown
End If