- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于下拉窗口取值求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169317)
-- 发布时间：2021/6/11 17:15:00
-- 关于下拉窗口取值求助
下图是“自定义录入界面之二”示例，我看了下代码，取值是表双击事件：
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
End If
e.Form.DropDownBox.CloseDropDown()
先将客户ID值取过去，然后通过表达式取到客户名称，如果不想通过表达式，直接取这个下拉窗口中的公司名称，要怎么写呀？
此主题相关图片如下：qq图片20210611171052.png
-- 发布时间：2021/6/11 17:22:00
--
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
-- 发布时间：2021/6/11 17:32:00
--
谢谢蓝版