标题：自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改

1楼

fx719 发表于：2024/12/23 15:33:00

比如说我在口径这列下拉能直接根据客户要求产品名称这列去筛选需要怎么修改

2楼

foxtablefanse 发表于：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

[此贴子已经被作者于2024/12/24 17:26:18编辑过]

3楼

有点蓝 发表于：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

共3 条记录, 每页显示 10 条, 页签: [1]