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

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

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

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()

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

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

Alexchenchi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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事件里面弄段代码去把值写入

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

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