单元格操作 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师：您好！

如何实现用键盘的山下键来操作单元格的下拉列表的选择？

按空格进入编辑状态，再按空格打开下拉列表，用上下箭头按键选择项目，按回车确定选择

你好,本来就可以使用上下键来选择的.

如果希望按下键就打开下拉列表

可以在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

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

可以用上下键打开了下拉列表，可下一步选择按上下键没起作用了，应该如何做？

谢谢！

你指焦点的是向下移动一个单元格吗? 打开还是移动,只能2者选其一啊, 怎么可能一个按键实现2个效果.

第一步：用上下键打开了下拉列表，在下拉列表中选择时，上下键可用吗？如何实现？（不用鼠标）

直接使用我的代码即可

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

老师：您好！

前面我没有说清楚，我是在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()
现在可以用鼠标进行下拉列表的选项操作，就是不能用键盘键实施，故问如何实现用键盘键操作。

你这个是目录树啊? 目录树没有这样的功能,非要写也可以.需要自己设计下拉窗口,就比较麻烦了. 目录树真的有这个必要吗? 还不如手动点节点快呢.

做个例子上来瞧瞧。

主题：单元格操作