自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

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