- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 双击下拉窗口，为什么值输入不到表里面去 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193123)
-- 发布时间：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()
但是双击后，在“检验记录”表中没有值输入，仍为空白，下拉窗口已关闭，光标进入要输入的单无格中
是少了什么语句吗？但是与帮助文件比对，好像没有少
-- 发布时间：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
-- 发布时间：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事件里面弄段代码去把值写入
-- 发布时间：2024/8/19 17:49:00
--
录入界面一使用的是模式窗口，不是下拉窗口，搞清楚再用
不管是表格还是dropdownbox，用法都一样，下拉窗口都有e.Form.DropDownBox