下拉窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如图，现在下拉窗口的触发字段是品号，希望把处罚字段放在预计到货，
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20170729151611.png

Dim txt As String = e.Form.DropDownBox.Text ——————现在txt是等于对应文本框的内容，希望能取到对应行的[品号]列的内容

Dim tbl As Table = Tables("物料需求计划_采购信息_物料采购信息")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'" & txt & "'"

tbl.Filter = "[品号] = " & txt & "And [入库状态] <> 2 "

End If

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

以通过文本框解决

[此贴子已经被作者于2017/7/29 15:31:11编辑过]

主题：下拉窗口