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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉窗口

共有1241人关注过本帖树形打印复制链接主题：下拉窗口

home8225

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

下拉窗口

Post By：2017/7/29 15:17:00 [只看该作者]

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

此主题相关图片如下：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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/7/29 16:04:00 [只看该作者]

表事件绑定列名改为预计到货即可

If e.Col.Name = "预计到货" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

主题：下拉窗口