- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于下拉窗口筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64842)
-- 发布时间：2015/3/3 14:00:00
-- 关于下拉窗口筛选
此主题相关图片如下：下列窗口筛选.bmp
如上图，如何在下拉窗口筛选出同一个客户的所有数据，且已核销的列值为false，同时将下拉窗口中的 已收款序列号 填写到 销货发票信息表的 已收款序列号里呢？ 销货发票信息表 的 已收款序列号是个多值字段。
请教下高手，谢谢。
-- 发布时间：2015/3/3 14:06:00
--
http://www.foxtable.com/help/topics/2465.htm
-- 发布时间：2015/3/3 14:10:00
--
例子是用当前单元格的值来筛选的，我想要的是当前行的其他数值来筛选，不知道该如何获得这个值
-- 发布时间：2015/3/3 14:11:00
--
将窗口的DropDownOpened事件代码设置为:
Dim txt As String = Tables("销货发票信息表").Current("客户代号")
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
tbl.Filter = "客户 = \'" & txt & "\'"
End If
-- 发布时间：2015/3/3 14:11:00
--
仔细看一下帮助
如果除了客户ID列，还要同时从客户表选择其它多列内容输入到订单表，可以将DropDownClosed事件代码改为：
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
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")
End If
End I