- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 单元格操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43017)
-- 发布时间：2013/11/28 11:31:00
-- 单元格操作
老师：您好！
如何实现用键盘的山下键来操作单元格的下拉列表的选择？
-- 发布时间：2013/11/28 11:39:00
--
按空格进入编辑状态，再按空格打开下拉列表，用上下箭头按键选择项目，按回车确定选择
-- 发布时间：2013/11/28 11:46:00
--
你好,本来就可以使用上下键来选择的.
如果希望按下键就打开下拉列表
可以在KeydOWN事件中
If e.Table.cols(e.Table.ColSel).name="第一列" Then
If e.KeyCode=keys.Down Then
If Tables("表A").Cols("第一列").DroppedDown=False Then
e.Cancel=True
Tables("表A").StartEditing
Tables("表A").Cols("第一列").OpenDropDown
End If
End If
End If
-- 发布时间：2013/11/28 12:37:00
-- 下一步哪？
If e.Table.cols(e.Table.ColSel).name="第一列" Then
If e.KeyCode=keys.Down Then
If Tables("表A").Cols("第一列").DroppedDown=False Then
e.Cancel=True
Tables("表A").StartEditing
Tables("表A").Cols("第一列").OpenDropDown
End If
End If
End If
可以用上下键打开了下拉列表，可下一步选择按上下键没起作用了，应该如何做？
谢谢！
-- 发布时间：2013/11/28 12:58:00
--
你指焦点的是向下移动一个单元格吗? 打开还是移动,只能2者选其一啊, 怎么可能一个按键实现2个效果.
-- 发布时间：2013/11/28 13:46:00
-- 下拉列表
第一步：用上下键打开了下拉列表，在下拉列表中选择时，上下键可用吗？如何实现？（不用鼠标）
-- 发布时间：2013/11/28 14:13:00
--
直接使用我的代码即可
-- 发布时间：2013/11/28 14:57:00
-- 补充说明
老师：您好！
前面我没有说清楚，我是在MouseEnterCell事件中使用代码：
\'生成数据表
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 一级分类,二级分类,三级分类,食材名称,食材编号 From 食材库"
dt = cmd.ExecuteReader()
\'生成目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "一级分类|二级分类|三级分类|食材名称|食材编号"
tb.SourceCols = "食材编号"
tb.ReceiveCols = "食材编号"
Tables("进销存").Cols("食材编号").DropTree = tb.Build()
现在可以用鼠标进行下拉列表的选项操作，就是不能用键盘键实施，故问如何实现用键盘键操作。
-- 发布时间：2013/11/28 15:03:00
--
你这个是目录树啊? 目录树没有这样的功能,非要写也可以.需要自己设计下拉窗口,就比较麻烦了. 目录树真的有这个必要吗? 还不如手动点节点快呢.
-- 发布时间：2013/11/28 21:36:00
--
做个例子上来瞧瞧。