- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104456)
-- 发布时间：2017/7/29 15:17:00
-- 下拉窗口
如图，现在下拉窗口的触发字段是品号，希望把处罚字段放在预计到货，
此主题相关图片如下：qq截图20170729151611.png
此主题相关图片如下：qq截图20170729151611.pngDim 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编辑过]
-- 发布时间：2017/7/29 16:04:00
--
表事件绑定列名改为预计到货即可
If e.Col.Name = "预计到货" Then \'如果编辑的是客户ID列
If e.Col.DroppedDown = False \'且下拉窗口没有打开
e.Col.OpenDropDown() \'打开下拉窗口
End If
End If
If e.Col.DroppedDown = False \'且下拉窗口没有打开
e.Col.OpenDropDown() \'打开下拉窗口
End If
End If