- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 根据 帮助设计的下拉录入窗口 在表中数据数据就报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111157)
-- 发布时间：2017/12/16 8:45:00
-- 根据 帮助设计的下拉录入窗口 在表中数据数据就报错
根据 帮助 自定义录入界面之三 设计的下拉录入窗口 在表中数据数据 KeyPressEdit事件 就报错
此主题相关图片如下：qq截图20171216083111.png
此主题相关图片如下：qq截图20171216083119.png
此主题相关图片如下：qq截图20171216083134.png
[此贴子已经被作者于2017/12/16 8:48:03编辑过]
-- 发布时间：2017/12/16 9:51:00
--
贴出 KeyPressEdit事件代码
-- 发布时间：2017/12/16 12:55:00
--
KeyPressEdit事件代码
If e.Col.Name = "产品编号" Then
If e.Col.DroppedDown = False
e.Col.OpenDropDown()
End If
End If
-- 发布时间：2017/12/16 14:21:00
--
KeyPressEdit事件代码 If e.Col.Name = "产品编号" Then If e.Col.DroppedDown = False e.Col.OpenDropDown() End If End If |
-- 发布时间：2017/12/16 14:43:00
--
下拉窗口的DropDownOpened事件代码看看
-- 发布时间：2017/12/19 9:19:00
--
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables(e.Form.Name & "_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "产品编号 Like " & txt
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
就是按 帮助里的内容也会报错 第一次在表中输入数据就会出错 关闭错误提示 第二次就不会了！
[此贴子已经被作者于2017/12/19 9:19:27编辑过]
-- 发布时间：2017/12/19 9:29:00
--
贴出你AfterLoad事件代码。
或者，你试试把table的名字改一下。
-- 发布时间：2017/12/20 10:03:00
--
AfterLoad 事件是空的 没有代码
Table 名字改了 刚开始可以过一会又一样了 还是会出错！
-- 发布时间：2017/12/20 10:13:00
--
单独做一个项目，把你写的代码拷贝到那个项目，有没有问题？
或者，新建一个项目，照抄帮助文档有没有问题？http://www.foxtable.com/webhelp/scr/2465.htm