- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 示例自定义录入界面之三没打开下拉窗 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115177)
-- 发布时间：2018/3/2 11:00:00
-- 示例自定义录入界面之三没打开下拉窗
按示例“自定义录入界面之三”做了个模糊输入功能，此前都用好好的，但这几天就只加了些自动输入功能的，忽然发现在该模糊查找单元格按下键盘键时下拉窗没打开（屏幕是有闪动一下屏现象出现的）。任意输入两个字后手动按单元格小三角是打开下拉窗的。。。这问题不知从何查起了，麻烦老师看下“代码事件”大概是哪地方出了问题的（窗口：月录入选择窗口三，单元格：员工月填报表的“工程名称”列）。
[此贴子已经被作者于2018/3/2 11:01:58编辑过]
-- 发布时间：2018/3/2 11:19:00
--
删除表格事件的代码，删除窗口afterLoad、DropDownOpened事件的代码。
保留afterOpenProject的代码 Tables("订单").Cols("客户ID").DropForm = "窗口1"
然后测试下来是否正常。正常之后，逐步加入代码，看哪里出错。
-- 发布时间：2018/3/2 11:20:00
--
如果自己不会处理，请上传具体项目说明。
-- 发布时间：2018/3/2 12:07:00
--
甜老师厉害了！关闭窗口的DropDownOpened真的就可以打开下拉窗了。
-- 发布时间：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() \'将输入焦点返回下拉列表框
-- 发布时间：2018/3/2 18:01:00
--
代码之间有冲突了，做个例子发上来测试。
-- 发布时间：2018/3/5 9:07:00
--
知道甜老师太忙本想自己能折腾出些名堂那是最好的，故周末自行折腾了两天但还未得其果，只好上例子麻烦甜老师您了。。。。
1、目的：“工作月报表”的[工程名称]列具有示例的“自定义录入界面之三”的键盘录入文字有自动查找功能。
2、发生问题：在该列每每键入一个字录入光标就不见，只能再次进入。。。
3、 “工作月报表”共关联三个表均作为其主表。
附注：对应下拉窗的窗口名为“月录入选择窗口三_” ，现关闭\'e.Form.DropDownBox.Select() 才能打开下拉窗，否则则打不开下拉窗。此前开发时该功能感觉是能正常使用的，但近期在该表的[具体工作]列增加示例的“用目录树输入数据”后就出现问题了。
-- 发布时间：2018/3/5 9:43:00
--
没看到你的附件，请正确上传测试文件。
-- 发布时间：2018/3/5 9:49:00
--
哦，再传。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:部门用工管理.rar |
-- 发布时间：2018/3/5 10:00:00
--
把注释去掉，我测试你的文件没问题。你试试把你项目的bin文件夹删除，重新打开项目
此主题相关图片如下：123.gif