- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194573)
-- 发布时间：2024/12/23 15:33:00
-- 自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改
比如说我在口径这列下拉能直接根据 客户要求产品名称这列去筛选 需要怎么修改
-- 发布时间：2024/12/24 17:12:00
--
If e.Col.Name = "口径" Then \'如果编辑的是客户ID列
If e.Col.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("窗口1_Table1")
e.text=e.Row("客户要求产品名称")
If e.Text = "" Then \'如果内容为空
tbl.Filter = "" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
tbl.Filter = "客户要求产品名称 like " & txt
End If
End If
End If
tbl.Filter = "" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
tbl.Filter = "客户要求产品名称 like " & txt
End If
End If
End If
[此贴子已经被作者于2024/12/24 17:26:18编辑过]
-- 发布时间：2024/12/24 17:27:00
--
去掉表格ChangeEdit事件，
将窗口的DropDownOpened事件代码设置为:
Dim r as row = e.Form.DropTable.current
Dim tbl As Table = Tables("窗口1_Table1")
If r.isnull("产品名称") Then
tbl.Filter = ""
Else
tbl.Filter = "产品名称 =\'" & r("产品名称") & "\'"
End If