- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 回车键自动输入目录树节点 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130369)
-- 发布时间：2019/1/20 11:21:00
-- 回车键自动输入目录树节点
请教:甜老师,我想按回车键就确认已经选中的目录树节点,不用双击目录树节点呢,这样输入速度能快很多,辛苦您了!周日都不休息!
此主题相关图片如下：回车键确认目录树节点.png
-- 发布时间：2019/1/20 11:45:00
--
keydown事件，写代码
If e.KeyCode = keys.enter Then
msgbox(e.Sender.SelectedNode.text)
End If
-- 发布时间：2019/1/20 12:10:00
-- 回复：（有点甜）keydown事件，写代码 If e....
麻烦老师帮我测试下,写进去没实现
-- 发布时间：2019/1/21 0:10:00
--
If e.KeyCode = keys.enter Then
Dim enode = e.Sender.SelectedNode
Dim fpath As String = enode.FullPath
Dim npath As String = enode.FullName
\'MessageBox.Show("fullpath的名称:" & fpath)
\'MessageBox.Show("fullname的名称:" & npath)
Dim txt As String = fpath.Split("\\")(1)
\'MessageBox.Show(txt)
\'e.Form.DropDownBox.Value = fpath.Split("\\")(1)
e.Form.DropDownBox.Value = txt.SubString(5)
If enode.Level = 1 Then
e.Form.DropTable.Current("会计科目_明细科目") = ""
ElseIf enode.Level = 2 Then
e.Form.DropTable.Current("会计科目_明细科目") = enode.text.SubString(7)
ElseIf enode.Level = 3 Then
e.Form.DropTable.Current("会计科目_明细科目") = enode.ParentNode.text.SubString(7) & "\\" & enode.text.SubString(9)
End If
e.Form.DropDownBox.CloseDropdown
End If
-- 发布时间：2019/1/21 13:46:00
-- 回复：（有点甜）If e.KeyCode = keys.enter Then&nbs...
甜老师,还是没有实现,您能帮我测试下吗,我想要的结果是:比如我输入100201 按回车键 一级科目和明细科目就自动显示出来了,好像双击了目录树节点一样的效果呢
-- 发布时间：2019/1/21 14:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会计科目录入.foxdb |
-- 发布时间：2019/1/21 19:07:00
-- 回复：（有点甜）[upload=foxdb,会计科目录入.foxdb]v...
甜老师:修改后的代码回车功能已实现自动输入,可双击节点的功能输入失效了呢?
-- 发布时间：2019/1/21 20:32:00
--
6楼的项目我测试没有问题
-- 发布时间：2019/1/22 9:05:00
-- 回复：（有点蓝）6楼的项目我测试没有问题
老师麻烦您在帮我测试下6楼的文档:双击节点100201 一级科目是可以出来的,明细科目出不来, 但是第二次双击时一级和明细都能同时出来的呢?
-- 发布时间：2019/1/22 10:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:会计科目录入.foxdb |