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

1楼

Alexchenchi 发表于：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楼

有点蓝 发表于：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

3楼

Alexchenchi 发表于：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楼

有点蓝 发表于：2024/8/19 17:49:00

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

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

共4 条记录, 每页显示 10 条, 页签: [1]