示例自定义录入界面之三没打开下拉窗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 示例自定义录入界面之三没打开下拉窗

共有2732人关注过本帖树形打印复制链接主题：示例自定义录入界面之三没打开下拉窗

Zhao2006

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1544 威望：0 精华：0 注册：2017/3/16 1:12:00

示例自定义录入界面之三没打开下拉窗 发帖心情

Post By：2018/3/2 11:00:00 [只看该作者]

按示例“自定义录入界面之三”做了个模糊输入功能，此前都用好好的，但这几天就只加了些自动输入功能的，忽然发现在该模糊查找单元格按下键盘键时下拉窗没打开（屏幕是有闪动一下屏现象出现的）。任意输入两个字后手动按单元格小三角是打开下拉窗的。。。这问题不知从何查起了，麻烦老师看下“代码事件”大概是哪地方出了问题的（窗口：月录入选择窗口三，单元格：员工月填报表的“工程名称”列）。

[此贴子已经被作者于2018/3/2 11:01:58编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/2 11:19:00 [只看该作者]

删除表格事件的代码，删除窗口afterLoad、DropDownOpened事件的代码。

保留afterOpenProject的代码 Tables("订单").Cols("客户ID").DropForm = "窗口1"

然后测试下来是否正常。正常之后，逐步加入代码，看哪里出错。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/2 11:20:00 [只看该作者]

如果自己不会处理，请上传具体项目说明。

Zhao2006

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1544 威望：0 精华：0 注册：2017/3/16 1:12:00

Post By：2018/3/2 12:07:00 [只看该作者]

甜老师厉害了！关闭窗口的DropDownOpened真的就可以打开下拉窗了。

Zhao2006

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1544 威望：0 精华：0 注册：2017/3/16 1:12:00

Post By：2018/3/2 15:42:00 [只看该作者]

甜老师好，关闭窗口的DropDownOpened事件后下拉窗是打开了，现在出现的新问题是：单元格每键入一个字后光标就不见了，测试窗口DropDownOpened代码发现关闭e.Form.DropDownBox.Select()就能打开下拉窗但还是输入字后光标就不见了（也就是每输入一个字得重新进入单元格的），如何改进最后一句代码让光标不丢失呢？

Dim txt As String = e.Form.DropDownBox.Text

Dim tbl As Table = Tables("月录入选择窗口三_Table1")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

tbl.Filter = "工程名称 Like " & txt & " Or 委托单位 Like " & txt & " Or 项目检码 Like " & txt & " Or 项目编号 Like " & txt

End If

'e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框