双击下拉窗口，为什么值输入不到表里面去 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击下拉窗口，为什么值输入不到表里面去

共有2744人关注过本帖树形打印复制链接主题：双击下拉窗口，为什么值输入不到表里面去

Alexchenchi

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

加好友

发短信

等级：婴狐帖子：7 积分：139 威望：0 精华：0 注册：2017/11/8 22:09:00

双击下拉窗口，为什么值输入不到表里面去 发帖心情

Post By：2024/8/19 16:45:00 [只看该作者]

此主题相关图片如下：pic3.png

此主题相关图片如下：pic2.png

如图，下拉窗口表的doubleclick事件中代码：

Dim tbl As Table = Tables("编组编码下拉_Table1")

If tbl.Current IsNot Nothing Then

Tables("检验记录").Current("编组代码") = tbl.Current("编组代码")

End If

Forms("编组编码下拉").Close()

但是双击后，在“检验记录”表中没有值输入，仍为空白，下拉窗口已关闭，光标进入要输入的单无格中

是少了什么语句吗？但是与帮助文件比对，好像没有少

有点蓝

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

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/19 17:19:00 [只看该作者]

e.cancel=true

Dim tbl As Table = Tables("编组编码下拉_Table1")

If tbl.Current IsNot Nothing Then

e.Form.DropDownBox.value = tbl.Current("编组代码")

e.Form.DropDownBox.CloseDropdown() '关闭下拉窗口

End If

http://www.foxtable.com/webhelp/topics/2099.htm

Alexchenchi

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

加好友

发短信

等级：婴狐帖子：7 积分：139 威望：0 精华：0 注册：2017/11/8 22:09:00

Post By：2024/8/19 17:45:00 [只看该作者]

Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
Tables("订单").Current("客户ID") = tbl.Current("客户ID")
End If
Forms("窗口1").Close()

图片点击可在新窗口打开查看此主题相关图片如下：pic4.png

我是参照的录入界面一中的doubleclick

直接从表格中下拉的窗口，没有用dropdownbox

刚看您的指导，我想是不是要到下拉窗口的closedropdown事件里面弄段代码去把值写入

有点蓝

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

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/19 17:49:00 [只看该作者]

录入界面一使用的是模式窗口，不是下拉窗口，搞清楚再用

不管是表格还是dropdownbox，用法都一样，下拉窗口都有e.Form.DropDownBox

下一主题 >> << 上一主题

主题：双击下拉窗口，为什么值输入不到表里面去